#!/usr/bin/perl

$string = "foo
bar";

$string =~ s/\s+$//;
print $string, "\n\n";

$string =~ s/[\r\n]+/ /gs;
print $string, "\n\n";

##</code><code>##

foo
bar

foo bar