>>333
perlって、直にprintしたら改行までしか出力されないんじゃなかった？
openしてから、
while(<ﾌｧｲﾙﾊﾝﾄﾞﾙ>){print;}