while(<DATA>){s/[\\\n]//g; $line.=$_;}
print $line;

__DATA__
fist line\
second line\
third line\
fourth