my ($match) = $text =~ /(stufftoextract)/;