$line =~ /(\d\d)-(\d\d)\s+(\d\d):(\d\d)\s+([ap]m)-(\d\d)-(\d\d)-(\d\d)\s+(\d\d):(\d\d)\s+[ap]m/