$/="abc";
my $count = chomp(@/=<FILE>)/$/=~y///c;