[code]use strict;
use warnings;

use 5.010;
use utf8;

# Beispiele für Matches:
# - Smiley: \x{263a}
# - Crossed fingers: \x{f91e}

my $line = "☺";
if ($line =~ /\x{263a}/) { say "Smiley"; }

$line = "