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

##</code><code>##

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