$time =~ /^\s*(\d{1,2})\s*:\s*(\d\d)\s*([APM]{2})\s*$/

##</code><code>##

_12:00_AM__
1_:_00_PM
2:20AM