Select Code to Download

my @regex = ( 'foo', 'b[a-z]' );
my $string = 'foo';
...
        $count++ if $_[0] =~ /$_[1]/;
    };
}