if ($xpl[2]=~/^(\d+)\/(\d+)\/(\d+)\s+(\d+):(\d+:\d+)\s+([A|P]M)$/) {
        $xpl[2]=($3+2000)."-".$1."-".$2." ".(($6 eq "PM")?($4+12):$4).":".$5;
  }