c:\@Work\Perl\monks>perl -wMstrict -le
"my $x = 'abXcd';
 print qq{'$x'};
 ;;
 $x =~ s.X.Y.;
 print qq{'$x'};
"
'abXcd'
'abYcd'