{ local $/; my $contents = <>; $contents =~ tr/\n/\n/s; print $contents; }