Select Code to Download

use strict;
use warnings;
...
    return 1 if $pw =~ m{$descPatt};
    return 0;
}

johngg@shiraz:~/perl/Monks > ./spw1148625
1234 - too many consecutive digits
...
01234 - too many consecutive digits
2356 - pass
johngg@shiraz:~/perl/Monks >