my $contains_term = 0;
eval {
use HTML::HTML5::Entities;
use Encode qw/decode encode/;

$terms = decode('UTF-8',$terms); # in Perls interne Zeichenkette

$contents = decode('UTF-8',$contents); # in Perls interne Zeichenkette
$contents = HTML::HTML5::Entities::decode($contents); # HTML Entities dekodieren

$contains_term = ($contents =~ /$terms/); # Matcht es?
};