Select Code to Download

print "a\n\nc\n" =~ / a\n ^ $    c\n /mx ?1:0, "\n";  # 0
print "a\n\nc\n" =~ / a\n ^ $ \n c\n /mx ?1:0, "\n";  # 1

$_ = "abc\n"
   . "def\n"
...

s/^\n//mg;
print;

abc
def
jkl
stu