Select Code to Download

foreach (@count) {
    if ($_->[0] eq $bn) {
...
if ($found == 0) {
    push @count, [ $bn, 1 ];
}

++$count{$bn};

my $regex = join '|', @mask;
# Now you have a list of alternatives
$regex = qr<GET (.*\b(?:$regex)\b.*) HTTP/1.1" 200 [0-9].*>;
# now the regex is precompiled

if (/$regex/) {
    s/.*GET //;
    s/ HTTP.*//;
      :
      :

if (s/$regex/$1/) {
      :
      :

use strict;
use File::Basename;
...
foreach (sort keys %count) {
        print $_," = ",$count{$_},"\n";
}