use Benchmark qw(cmpthese);

my $s = "€" x 1000;

cmpthese(10000, {
    'U Schablone' => sub{ pack("U*", unpack("U*", $s)) },
    'C Schablone' => sub{ pack("C*", unpack("C*", $s)) }
});

              Rate U Schablone C Schablone
U Schablone 2026/s          --        -38%
C Schablone 3282/s         62%          --