Equivalent:

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

But neither implementation is likely to be useful (to anyone in general or to the OP specifically).