$_ = "abc\n" . "def\n" . "\n" . "jkl\n" . "\n" . "\n" . "stu\n"; s/^\n//mg; print;