#!/bin/sh cat $1 |perl -MEncode=encode,decode -e ' while () { $_ =~ s/\r\n/\n/o; print encode("utf8",decode("shiftjis",$_)); }'