>>205
$herpussy =~ s/((?>.{78}))(.)/
my ($pre, $post) = ($1, $2);
($2 =~ m{[\x81-\x9f\xe0-\xfc]})
? (pos($herpussy) -1) && $pre . "\n" . $post
: $pre . $post . "\n";
/eg;

# あんまりだったのでセルフサービス