$myfile =~ s!\b([A-Z]+)\b!$1!g;