foreach (keys %links)
{
 if ($intext =~ s#$links{$_}([^</]+)</a>#$1#ig)
 {
  print "Link removed: $_\n";
 }
 else
 {
  print "Problem removing link: $_\n";
 }
}