print <MYFILE>;

##</code><code>##

$data = join "", <MYFILE>;

##</code><code>##

use strict;
use warnings;

my $data;

while (<DATA>)
{
    print;
    $data .= $_;
}

print $data, "\n";

__DATA__
1st line
2nd line
3rd line
4th line

End of file

##</code><code>##

17:08 >perl 1355_SoPW.pl
1st line
2nd line
3rd line
4th line

End of file
1st line
2nd line
3rd line
4th line

End of file


17:08 >