#!/usr/bin/perl -w

# name of script:  hmrn.pl
# Time-stamp: <Tuesday, 27 November 2007, 12:39 MST -- cbuerkle>

while (<>) {
    chomp;
    (undef,undef,$HRMN,undef,undef,undef,undef,undef,undef,undef,undef,
     undef,undef,undef,undef) = split /[,\s+]/;
    if($HRMN =~ /(\d{0,2}?)(\d{1,2})$/){
	print "$HRMN -- $1:$2\n";
    }
    else{
	print "********** Mismatch *********\n";
    }
}