半角79文字毎に改行しようとして、以下のようなスクリプトを書きました。
これだと、全角文字を分断する可能性があります。
正規表現を使って出来るだけシンプルに全角文字を分断しないようにするには、
どうしたらいいでしょうか？
入力される全角文字は半角英数を含むShiftJIS固定、Perlはv5.8.8です。

#!perl

my $herpussy = <STDIN>;
my $mystick = 79;
$herpussy =~ s/([^\n]{$mystick})/\1\n/g;

print $herpussy;