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