open (IN,"in.txt") or die "$!"; open (OUT,">out.txt") or die "$!"; $_=; chomp; print OUT ; while (){ chomp; if (m!\\(.*)!){ print OUT (" ".$1); } else { print OUT "\n$_"; } } print OUT "\n";