#!/usr/bin/perl -w

use strict;

my $line = join $/, <DATA>;

print "<<$line>>\n";

__DATA__
one
two
tie my
shoe