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;									       
}