-!/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\n";
  }
}