my $string="This is test of test etc";
my $search="test";

my @array = ($string=~ /$search/g);
print "\n scalar(@array)";