print "Before: '$/'\n\n";
{
  local undef $/;
}
print "After: '$/'\n";