my $var = ''; # or perhaps my @var = (); { local $/ = undef; open(FH," ; close(FH); }