$time =~ /^(\d{1,2}):(\d\d)\s?([APM]{2})$/
#----------------------------^  Added this
# And actually, now that I come to think of it, the
# dealing with AM or PM problems may be better sorted using:
$time =~ /^(\d{1,2}):(\d\d)\s?(AM|PM)$/
[download]

Note that you ought to use this regex after the user submits the data and before you enter it, so that if a user gives something bogus, you catch it then, before the data goes in, as opposed to afterwards during the sort.

-----------------------------------------------------
Dr. Michael K. Neylon - mneylon-pm@masemware.com || "You've left the lens cap of your mind on again, Pinky" - The Brain