Note also that the meaningless use of the  /g modifier in the validation statements causes even those to be incorrect:

c:\@Work\Perl>perl -wMstrict -le
"my $dumbuf = '10';
 ;;
 die 'Not a valid file'         if $dumbuf !~ m/\d/sg;
 die 'File contains only zeros' if $dumbuf !~ m/[1-9]/sg;
"
File contains only zeros at -e line 1.
[download]