my $searchstring = 'humptydumpty';
my @matches = $searchstring =~ /umpty/g;