my $count = $foo =~ s/abc/abc/g;