$blah2 =~ s/\w+//;

##</code><code>##

my ($word) = $string =~ /(\W+)/;