Select Code to Download

c:\@Work\Perl\monks>perl -wMstrict -le
"my $Disc = 'foo00000008';
...
   }
"
'foo00000008' is OK!

c:\@Work\Perl\monks>perl -wMstrict -le
"for my $Disc (qw(
...
'000000000x' is bad
'x000000000x' is bad
'' is bad