Help for this page

Select Code to Download

Select or download this

>perl -wMstrict -le
"my $str = 'XXX@okYYY';
...
 printf qq{'$_' } for @pieces;
"
'XXX' 'YYY'