Pasted

#!/usr/bin/perl
# hcmasks.pl by epixoip
# calculates hashcat mask for each word, then sorts and prints masks in desc order
 
use strict;
no strict "subs";
 
my %masks = ();
 
sub desc {
        $masks{$b} <=> $masks{$a};
}
 
 
while (<STDIN>)
{
        chomp;
 
        my $mask;
        my @line = split(//);
 
        foreach my $char (@line)
        {
                if ($char =~ /[a-z]/) {
                        $mask .= "?l";
                }
                elsif ($char =~ /[A-Z]/) {
                        $mask .= "?u";
                }
                elsif ($char =~ /[0-9]/) {
                        $mask .= "?d";
                }
                elsif ($char =~ /[\W_]/) {
                        $mask .= "?s";
                }
        }
 
        $masks{$mask}++;
}
 
foreach my $mask (sort desc(keys(%masks)))
{
        printf("%10d    %s\n", $masks{$mask}, $mask);
}