#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>\n";
}
elsif($date=~/^(\d{2})\/(\d{1})\/(\d{4})/)
{
  $date=$1."\/0".$2."\/".$3;
  print "<br>L2 - $date<br>\n";
}
elsif($date=~/^(\d{2})\/(\d{2})\/(\d{4})/)
{
  $date=$1."\/0".$2."\/".$3;
  print "<br>L3 - $date<br>\n";
}
else{
  $date=~/^(\d{1})\/(\d{1})\/(\d{4})/;
  $date="0".$1."\/0".$2."\/".$3;
  print "<br>L4 - $date</br>\n";
}