use 5.032;
my $e = "\N{EURO SIGN}";

my $term  = '^.$';
my $term3 = '^...$';
say "Characters mit '$term': " , $e =~ /$term/;  # 1
say "Characters mit '$term3': ", $e =~ /$term3/; # kein Match

{
    use bytes;
    say "Bytes mit '$term': ",  $e =~ /$term/;   # kein Match
    say "Bytes mit '$term3': ", $e =~ /$term3/;  # 1
}