in reply to regular expression ?!

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

[download]

In Section Seekers of Perl Wisdom