my $infile = delete $replace{-input} // "$name.plp";
my $addin = -e "$name.txt" && "$name.txt";
$name =~ s/^(\d*)-// and $name .= " ($1)";
my $infile = delete $replace{-input} // "$name.plp";
my $addin = -e "$name.txt" && "$name.txt";
$name =~ s/^(\d*)-// and $name .= " ($1)";