Select Code to Download

while ( <> ) {
    chomp;
    print "$_\n" if length $_;
}

{
local $/;
...
$contents =~ tr/\n/\n/s;
print $contents;
}

$/='';chomp,print"$_\n"while<>

print/./?$_:''while<>

print/./?$_:''for<>

perl -ne "print if/./"

perl -0pe "y/\n/\n/s"

perl -ne "/./&&print"