# benutzerdefinierte Einstellung 
# für $/ in dynamischen Scope
do{
  local $/ = "\r\n";
  #...
};