[^</]

##</code><code>##

if ($intext =~ s#$links{$_}([^</]+)</a>#$1#ig)