@alphabet = split('', '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ');

# loop through 2 character combos
foreach (@alphabet) {
    $c1 = $_;

    foreach (@alphabet) {
        $c2 = $_;
        $lookfor = '\b'.$c1.$c2.'[ ,](([A-Z]{1})([ a-z])+)+,';

        if ($fcontents =~ m/($lookfor)/) {
            print "$1\n";
        }
    }
}