my $pattern = 'http://www.blah.com/cgi.pl?id=<blah>&blah';
my $matched =($pattern =~ /(\<\w+\>)/,$1);
print "$matched";

##</code><code>##

<blah>