Remark: acc. to Time::ParseDate thoes four lines should not be needed.
I inserted them as I thought that there is a bug
in determine 2 AM and 2 PM (=14).
So I got the same results if I eliminate these lines
(even blank or not before APM doesn't matter):

# 1st if ...
  $i[7] =~ s/://g; #hhmmss[[AP]M]
  $i[7] .= ($i[7] lt '120000' ) ? ' AM':' PM';
# 2nd if..
  $i[5] =~ s/://g; #hhmmss[[AP]M]
  $i[5] .= ($i[5] lt '120000' ) ? ' AM':' PM';
[download]

Carl