my @matches = ($text =~ /(stufftoextract)\w(morestufftoextract)/);