@lines = <>; { (@tokens = split /\s+/, shift @lines) > 1 or push @tokens, grep /./, split /\s+/, shift @lines; push @csv, (join ',', @tokens) . "\n"; redo if @lines; } print @csv;