in reply to Long string needs to be separated

{local $/=\150; local $\="\n"; print while <>; }