#!/usr/bin/perl

for (qw(9:01PM 3:30AM 1:10AM)) {
    if (m{^(\d+):(\d\d)(AM|PM)}) {
        print "$_ is @{[$1*60+$2+($3 eq 'PM' ? 12*60 : 0)]} minutes\n";
         };
     };