my $infile = "..."
$/=undef;
open(INF,$infile);
my $file = <INF>;