jsplit.pl

# EUCにしておく必要があります

$twoBytes   = '[\x8E\xA1-\xFE][\xA1-\xFE]';
$threeBytes = '\x8F[\xA1-\xFE][\xA1-\xFE]';

sub jsplit{$_[0] =~ m/($twoBytes|$threeBytes|.|\n)/og}