c:\@Work\Perl\monks>perl -wMstrict -le
"print 'perl version: ', $];
 ;;
 my $string = '123! 987!';
 (my $new_string = $string) =~ s/!/bang/g;
 print qq{original '$string'   new string '$new_string'};
"
perl version: 5.008009
original '123! 987!'   new string '123bang 987bang'