c:\@Work\Perl\monks\Zu>perl -wMstrict -le
"my $s = 'xxxyxxx';
 $s =~ s/y
        /FOO
        /xms;
 print qq{'$s'};
"
'xxxFOO
   xxx'