local $/; # slurp a file at a time 
$_ = <ARGV>; 
close ARGV;

##</code><code>##

my $new_var = $_;

##</code><code>##

my @new_array = split;