while () { while (($_ !~ /"\s*$/) && !eof) { s/[\r\n]+$// ; $_ .= ' '. ; } ; print $_; } __DATA__ "data", "data" ,"data", "data","data", "data" "data", "data" ,"data", "data with new line ", "and some more! ","data", "data" "data", "data" ,"data", "data","data", "data" "tada", "tada