【Perl 】初心者コーナーPart5

$msg(全角半角が入り混じった文字)
をsubstrなどで途中で区切って
...を最後につけるにはどうすればいい？
ふつうに
$msg2 = substr($msg,0,20);
などとすれば
全角を途中できることになる場合があるので
むりなので。。。