# undef $/;       # global effect!
                  # instead:
local $/ = undef; # local effect