Nachtrag

[Andreas Flückiger]

if ($htmltext =~ /<a(\s+[a-z]+\s*=\s*("[^"]*"[^>\s]*))*\s*>(.*?)</a>/is)

Da der Schwanzabschneider alle | entfernt (so ein wichtiges Zeichen ;-), das ganze noch mit Unicode-codiertem Zeichen:
if ($htmltext =~ /<a(\s+[a-z]+\s*=\s*("[^"]*"|[^>\s]*))*\s*>(.*?)</a>/is)

Gruss
Andreas