#! perl
use strict;
use warnings;

print "Contents of \$/: |$/|\n";
print ">$_<\n" while <DATA>;

__DATA__
7
42
0

##</code><code>##

while (defined($_ = <STDIN>)) { print; }
while ($_ = <STDIN>) { print; }
while (<STDIN>) { print; }