open(FH, "worldaff_join.txt") or die("error opening");
@file=<FH>;
foreach $line (@file)
{
 @sentence=split(/ /,  $line);
print"@sentence";
}
close(FH);

#/usr/bin/perl 
 
 use strict;
 use warnings;
  
 
 #  Setup the counters
 
 my $shed_counter= 0;          # question mark counter
 my $doubleshed_counter = 0;      # period counter
 my $ga_counter = 0;    # comma counter
  
  
 # Open a file
 
 open(FILE, "world affairs.txt");
  
 
 # Process the file
 
 while(<FILE>)

#!usr/local/bin/perl
#program practice
$file='input.txt';
open(FH, $file);
@line=<FH>;
open(OUT, ">>output.txt");
foreach $file(@line)
{
$r="#$file#";
print(OUT "$r");
}

close(FH);


input i gave
apple 
peach
orange
watermelon

output is coming like