Re^9: Create output from Perl hash

[Laurent_R]

To remove the first two digits, try changing this:

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

to this:

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