my @regexes = ( qr'verb [\w<>]+\s+/', qr'noun \w+\s+/', ... );

for my $re (@regexes ){
    $sizes{ $version }{ $file } ++ if /$re/;
}