$/ = q{}; #### ... { local $/ = q{}; while ( <> ) { ... } } ...