$d = "25-1-2006";
$d =~ s/(\D?)(\d{1})(\D{1})/$1(0$2)$3/g;