Encode::decode(utf8 => $binary_data) # from binmode filehandle


##</code><code>##


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 =~ /(f)/i;'


##</code><code>##


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;'


##</code><code>##


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 =~ /(fub)/i;'


##</code><code>##


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 =~ /(f)/i;'


##</code><code>##


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;'


##</code><code>##


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 =~ /(fub)/i;'


##</code><code>##


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 =~ /(1)/i;'


##</code><code>##

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 =~ /(666)/i;'