my $letters = "abcwxy";

my $re = qr/[$letters]/;
my $cnt;

while (<INPUT>)
 $cnt++ while /$re/g;
}
print "$cnt\n";