perl -pe 's/(\d+)\/(\d+)\/(\d+)\s+(\d+):(\d+):(\d+)\s+([AP]M)/join("-",$3,$1,$2,($7 eq "PM"?($4+12):$4)).".". join ".",$5,$6,"0000"/e' file.txt