1
2
3
4

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'";

Quote

"my" variable $test masks earlier declaration in same scope at test.pl line 23.
Backslash found where operator expected at test.pl line 24, near "0123456789\"
(Missing operator before \?)
Illegal octal digit '8' at test.pl line 24, within string
Illegal octal digit '9' at test.pl line 24, within string
syntax error at test.pl line 24, near "0123456789\"
BEGIN not safe after errors--compilation aborted at test.pl line 31.