Select Code to Download

#!/usr/bin/perl -w 

...
        print "Valid: $num\n";
    }
}

/^\d{5,}\D+/ #invalidates all except "12345z"
/^\d{5,}|\D+/ #only "1234" invalid