my $match = ($text =~ /(stufftoextract)/)[0];