use strict;
use warnings;

my $text = 'Ein Fisch, zwei Fische, drei Fische, vier Fische, Goldfische, Silberfische';

my $count = 0;
$count++ while ($text =~ m/[Ff]isch/g);
print $count, " Fische gefunden\n";