# assuming DATA pipe opened for reading...

# declare
my $current;

# begin local code block
{
  # locally define $/
  local $/ = undef;

  # slurp
  $current = <DATA>;

# end local code block
}