Select Code to Download

c:\@Work\Perl>perl -wMstrict -le
"$_ = 'xxqr{S}xx';
 print qq{matched '$&', \$1 is '$1'} if m/qr{([0-6BS])}/;
"
matched 'qr{S}', $1 is 'S'

c:\@Work\Perl>perl -wMstrict -MData::Dump -le
"my %options = (
...
'fum' pattern match of (?x) x (Y) z , $1 is 'Y'
'bar' exact match of 'xYzzy'
unknown: zzzzz; type '?????'; name 'zot' at -e line 1.