#!/usr/bin/env perl
use 5.034;

use HTML::Entities qw( decode_entities );
use utf8;

my $input = qq{{✶Adjektive (Nominalflexion)~87✶}};
my $wonky_char = decode_entities( q{✶} );

binmode( STDOUT, q{:utf8} );

say qq{\$input: $input};
say qq{\$wonky_char: $wonky_char};

my $to_match = "Adjektive (Nominalflexion)~87";
my $new_string =
  $input =~ s{\{$wonky_char(\Q$to_match\E)$wonky_char\}}{<div>I found '$1'</div>}r;

say qq{\$new_string: $new_string};

my $cleaner_regex_sample =
  $input =~ s{ \{ $wonky_char (\Q$to_match\E) $wonky_char \} }{<div>Also found '$1'</div>}rx;

say qq{cleaner: $cleaner_regex_sample};

exit 0;

__END__
$input: {&#10038;Adjektive (Nominalflexion)~87&#10038;}
$wonky_char: &#10038;
$new_string: <div>I found 'Adjektive (Nominalflexion)~87'</div>
cleaner: <div>Also found 'Adjektive (Nominalflexion)~87'</div>