program for input apple output "apple"

[chungku]

my frogram for it

#!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 this
#apple
#peach
#orange
#watermelon
 
instead i want like this
#apple#
#peach#
#orange#
#watermelon#
 

plz help
plz

[nithinpes]

when you read from the file, $file contains a newline. Remove the newline before appending the #.

foreach $file(@line)
{
chomp $r;                         #remove newline
$r="#$file#\n";                    #add newline
print(OUT "$r");
}