Select Code to Download

c:\@Work\Perl\monks>perl -wMstrict -le
"my $s = 'xxx foo , 987;-+--++-+%yyy';
...
 print qq{letters '$letters'  digits '$digits'  signs '$signs'};
"
letters 'foo'  digits '987'  signs '-+--++-+'