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

##</code><code>##

{
local $/;
my $contents = <>;
$contents =~ tr/\n/\n/s;
print $contents;
}

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

perl -ne "print if/./"

##</code><code>##

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

##</code><code>##

perl -ne "/./&&print"