my $test = '/pfad/test_%04d.txt';
$test =~ s/%(\d+)d/(\[0123456789\] x $1)/ge;
say "Debug   : '$test'";
say "Erwartet: '/pfad/test_[0123456789][0123456789][0123456789][0123456789].txt'";