my $count;

$count += tr/FIL/FIL/ while <DATA>;

print "F, I, and L occurred $count times.\n";

__DATA__
FDIELSIGCOXLSAGICK\n