in reply to regular expression ?!
perl -ple 's/\bBM/XXXXX_BM/g if $. == 1' file
An organised event
A traditional gathering
With family and friends
I don't celebrate the New Year
Adjusting my clocks for the Leap Second
I can't remember
Results (230 votes). Check out past polls.