log4perl.appender.FI.filename=
log4perl.appender.File.filename = \
    sub {my $p = $0; $p =~ s{(\w+)\.\w+$}{/home/perl_logs/$1.txt}; return $p;}

##</code><code>##

log4perl.appender.FI.filename= \
    sub {my $p = $0; $p =~ s{(\w+)\.\w+$}{/home/perl_logs/$1.txt}; return $p;}

##</code><code>##

log4perl.appender.FI.layout.ConversionPattern = %d %p --  %m %n
                  ^^