Select Code to Download

my $string = 'Cathy placated her cat,
    which was trying to catch a caterpillar.';
my $keyword = 'cat';
...
++$count while $string =~ /$keyword/gi;

print "Occurrences of '$keyword': $count";