open(INF,"<:utf8",$infile);
while(my $line = <INF>){
    chomp($line);
    my $stringToCompare = pack "U", 0x263a;
    if($line =~ /$stringToCompare/){
	print "MATCH IN LINE: $line\n";
    }
}
close(INF);