Help for this page

Select Code to Download

Select or download this


use warnings;
...
my $count = ($str =~ s/(the)/$1/gi);
print "$count\n";