Select Code to Download

$ perl -e 'my $string = "foobarfoofoobarfoo"; my $count = $string =~ s
+/foo/foo/g; print $count;'
4

my $count = $string =~ s/\bfoo\b/foo/g;