my $all_data;
{ 
  local $/ = undef; #no separator means whole file
  $all_data = <DATA>;
}
# now $/ is back to what it was before
# that is what the local within a lexical scope did