$firstline=~s/(\s)BM/$1XXXXX_BM/g