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