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

##</code><code>##

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