Select Code to Download

my $x = 'some';
my $y = 'strings';
my $z = 'here';

$sub->($x, $y, $z);

c:\@Work\Perl\monks>perl -wMstrict -le
"S('(?xmsi) foo', 'bar', 'g');
...
   }
"
x 'bar'  y 'bar bar bar'  z 'bar'