以下、ソース。(perl なのに Shift_JIS 専用)

sub fold {
    my ($str, $n) = @_;

    
    my $ret = "";
    my $len = 0;

 
    # 指定無き場合、200文字で折り返す
    $n ||= 400;     
    while($str =~ m{([\n]) | # 改行コード
                ([\x00-\x7F\xA1-\xDF]) | # 1byte
                ([\x81-\x9F\xE0-\xFC][\x40-\x7E\x80-\xFC]) | # 2byte
         .}gx) {
                if (defined $1) { $ret .= $1; $len = 0 };               	
                if (defined $2) { $ret .= $2; $len++ };
                if (defined $3) { $ret .= $3; $len += 2 };
                if ($n <= $len) { $ret .= "\n"; $len = 0 }
    }
    chomp $ret;
    return $ret;
}

euc-jp の人とかは、文字コードのとこを適当に書き換えればOKだと思います。お疲れさまでした。