#!/usr/bin/perl
use strict;
use warnings;

open(my $fh, '<:encoding(UTF-8)', './test.txt') or die($!);
while(my $line = <$fh>){
  if($line=~/\x{263a}/) {
    print "gefunden Smiley\n";
  }
  if($line=~/\x{1f91e}/) {
    print "gefunden Cossed Fingers\n";
  }
}
close($fh);