open(FILE1, $ARGV[0]) || die "Error: $!\n";
{
  local $/;          #value is restored at end this block
  undef $/;          #'slurp mode'
  @lines = <FILE1>;  #slurp all lines
}
#$/ is as back 'to normal', so nothing unexpected happens later