my $data = do { local $/; <DATA> };
my $patt = join '|' => map quotemeta, 'a' .. 'z';

my %freq;
$freq{$1}++ while $data =~ /($patt)/go;

# etc...