use warnings;
use strict;
my $cnt = 0;
my $str = "hi hi harshmane hi hi";


$cnt = ($str =~ s/(harsh)/$1/g);
print "'harsh' appears $cnt times.\n";

$cnt = ($str =~ s/(hi)/$1/g);
print "'hi' appears $cnt times.\n";

#OUTPUT
#'harsh' appears 1 times.
#'hi' appears 4 times.