perl -E"select('','','',0.1),say 'test'x30 for 1 ..200" | perl -ple1