my $match = substr $string, 0, 30;

##</code><code>##

substr($string, 0, 30) =~ /$re/