a.pl is as below:

use strict;

use warnings;



print "$_\n" while (<>);
[download]

Update (multiple): apologies, didn't see the  $var part. I assume, you are going to use it as a list:

my @var;
push(@var, $_) while(<>);
[download]