$x = <<MULTI;
foo
bar
MULTI
$x =~ s/\n/\r\n/g;
print OUT $x;