open X,'>test.pl';print X"while(<>){".join(';',<>).";print}"