http://www.perlmonks.org?node_id=1044780


in reply to appending file name

Change your code to:
my $filename = "rahul.abc"; chomp $filename; my @filenam = split ('\.', $filename); my $fi; my $fff=$filenam[0]."_header".".txt"; print "\n:$fff:\n"


More on string concatenation