c:\@Work\Perl\monks>perl -wMstrict -le
"S('(?xmsi) foo', 'bar', 'g');
 ;;
 sub S {
   my $sub = eval qq{ sub { s/$_[0]/$_[1]/$_[2] for \@_ } };
   ;;
   my $x = 'foo';
   my $y = 'Foo fOo foO';
   my $z = 'FOO';
   ;;
   $sub->($x, $y, $z);
   print qq{x '$x'  y '$y'  z '$z'};
   }
"
x 'bar'  y 'bar bar bar'  z 'bar'