open(FH,"file.txt");
my $var;
while(<FH>)
{
        $var .= $_;
}
close(FH);