local $/ = 'modified input record separator';

##</code><code>##

local $\ = chr(10) . chr(13);