perl -i -pe 's/\.mbh([_a-z]+)\s/\.new$1/g' < input_file