Den Teil mit dem HTML-Text verstehe ich der kommt mir auch nicht komisch vor. Es bleiben noch ein paar Unklarheiten zu Deinem Code im anderen Zweig:

• Woher kommt $terms? Können da Regex-Sonderzeichen das Ergebnis verfälschen? In dem Fall müsstest Du /\Q$terms/ schreiben.
• Warum use utf8;? Mit use utf8; müssen Literale im Quellcode nicht decodiert werden, das macht Perl selbst. Aber Du hast gar keine Literale in dem Scope!
• Warum eval?