To remove the first two digits, try changing this:

$add =~ s/(\d+)$/1\/1\/1\/$1/;
[download]

to this:

$add =~ s/\d\d(\d+)$/1\/1\/1\/$1/;
[download]