#my $date = "$mon/$mday/$year";
my $date = "10/13/2006";
if ($date=~/(\d{1})\/(\d{2})\/(\d{4})/){

    $date="0".$1."\/".$2."\/".$3;
    
    print "<br>L1 - $date<br>";

}elsif($date=~/(\d{2})\/(\d{1})\/(\d{4})/)
    {
    $date=$1."\/0".$2."\/".$3;
    print "<br>L2 - $date<br>";

}else{

    $date=~/(\d{1})\/(\d{1})\/(\d{4})/;
    $date="0".$1."\/0".$2."\/".$3;

}