Help for this page

Select Code to Download

Select or download this

>perl -wMstrict -le
"my @strs = (qw(123x foo ***), '');
...
for 'foo': pos == undefined, ${^MATCH} eq 'undefined'
for '***': pos == undefined, ${^MATCH} eq 'undefined'
for '': pos == undefined, ${^MATCH} eq 'undefined'