#!/usr/bin/perl -l
use strict;
use warnings;

my $text = qq(I
have
multiple
lines
);

print $text =~ s/\n/\n/g;       # substitute
print $text =~ tr/\n//;         # transliterate

__END__