use Encode; my $ord = ord decode("EUC", $bytes); $ord = undef if $ord > 255;