$/ = 'ggl';             # giggle mode
my $str2 = "a string ggl";
my $cnt = chomp $str2;
print "$cnt";           # prints: 3