in reply to regular expression ?!

have you added the global modifier to the regex? eg.
$firstline=~s/(\s)BM/$1XXXXX_BM/g

[download]

In Section Seekers of Perl Wisdom