use strict;
use warnings;

while (<DATA>){
  
     chomp;
     print "$_ ";
}
print "\n";


__DATA__
welcome
to 
Perl