http://qs321.pair.com?node_id=761921


in reply to regular expression ?!

perl -ple 's/\bBM/XXXXX_BM/g if $. == 1' file