Help for this page
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