{ local $\="\n"; # or $/, if it's not been changed... print whatever; print something_else; # ... }