( my $line = ( join "", <> ) ) =~ s/\n\s+//g; print $line; ______DATA_______ firstline54324563213612531436436463246324634 secondlidfndsfdsfdsfd thirdlinedsfsdf firstline54324563213612531436436463246324634 secondlidfndsfdsfdsfd thirdlinedsfsdf fourthlinedsfsdf fifthlinedsfsdf _____OUTPUT______ firstline54324563213612531436436463246324634secondlidfndsfdsfdsfdthirdlinedsfsdf firstline54324563213612531436436463246324634secondlidfndsfdsfdsfdthirdlinedsfsdffourthlinedsfsdffifthlinedsfsdf