http://www.perlmonks.org?node_id=1057144


in reply to Iterator to parse multiline string with \\n terminator

while(<DATA>){s/[\\\n]//g; $line.=$_;} print $line; __DATA__ fist line\ second line\ third line\ fourth
no?