Select Code to Download

c:\@Work\Perl\monks>perl -wMstrict -le
"print qq{'$1'} if 'ab-cd' =~ m{ (?! \A)    (\w) }xms;
...
'a'
'c'
'c'

c:\@Work\Perl\monks>perl -wMstrict -le
"use Test::More 'no_plan';
...
1..13
ok 14 - no warnings
1..14