my $foo =<<EOF;
line 2
line 3
line 4
EOF

$foo =~ s/\r?\n/ /g;

print $foo;