undef $/;
open FILE, shift;
my @lines = <FILE>;
close FILE;
foreach my $str (@lines){print $str};