#! perl
use strict;
use warnings;

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

__DATA__
7
42
0