#my $matches;
#$matches += $key =~ /$1/i while $find =~ /(.)/g;

# or the "rolex" operator!
my $match =()= $key=~/[$find]/ig;