s/<[^>]+>(\w+).*/$1/;

##</code><code>##

print $1 if />(\w+)</;