perl -MEncode -le 'open my $fh, "<", $^X; binmode $fh; local $/ = undef; my $data = <$fh>; close $fh; $data = Encode::decode(utf8 => $data); print $1 if $data =~ /(fu)/i;'