while () { chomp; # Continued Line if (/^(?>\s+)(?!\d+\.)(.*)$/) { print " $1"; # New Line } else { print "\n" if $. > 1; print $_; } } print "\n";