ちなみに既に改行がある場合は改行でsplitした配列に対して同様の操作が必要
↓一行でできるわ。
print join /\n/, map{ jcode($_)->jfold(20)-euc() } split /\n/, $str;