>>438
perl -lpE'$_=join$"x4,split$"'
(文字列を入れる)