#!/usr/bin/perl                             
                                            
use warnings;                               
use strict;                                 
                                            
my @array = ("Gernot", "\n", "Havranek", "\n", "Havi");
print @array, "\n";                        
for (my $i = 0; $i <= $#array; $i++) {
   $array[$i] =~ s%\n%;%g;
} # for
print @array;