print do { my $l; $l = $_ while <FILE>; $l }