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

##</code><code>##

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

##</code><code>##

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