Select Code to Download

c:\@Work\Perl\monks>perl -wMstrict -le
"use Regexp::Common;
...
 print qq{bad: '$1'} if 'Matsushita' =~ m{ ($reg) }xms;
"
bad: 'shit'