sub multiChomp {
  my @out = @_;
  chomp @out;
  return wantarray ? @out : join '', @out;
}

##</code><code>##

( my $text = do { local $/, @ARGV = 'foo.txt'; <> } ) =~ s/\n+//g;