here it is:

if ($date=~/^(\d{1})\/(\d{2})\/(\d{4})$/g){
                                                                      
+      $date="0".$1."\/".$2."\/".$3;
                                                                      
+      print "<br>L1 - $date<br>";
                                       
}elsif($date=~/^(\d{2})\/(\d{1})\/(\d{4})/g){
                                                                      
+   $date=$1."\/0".$2."\/".$3;                                        
+                               
                                                                      
+   print "<br>L2 - $date<br>";
    
}elsif($date=~/^(\d{1})\/(\d{1})\/(\d{4})/g){    
                                                                      
                                                                      
+   $date="0".$1."\/0".$2."\/".$3;
              
}else{
                                           
                                         $date=$date;                 
+                          
}
[download]