use strict;
use warnings;

my %signIn = ();
while( <DATA> )
{
    my $dateStr = substr $_, 42, 17;
    next unless
       my( $mday, $hr, $min, $ampm )
       =  $dateStr
       =~ m{\d\d/(\d\d)/\d{4}\s+(\d{1,2}):(\d\d)(a|p)};
    $hr = 0 if $hr == 12;
    $hr += 12 if $ampm eq q{p};
    $hr = sprintf q{%02d}, $hr;

    my $mdayKey = qq{DayOfMonth$mday};
    my $hrKey   = qq{HourSignIn$hr};

    $signIn{ $mdayKey }->{ TotalPerDay } ++;
    $signIn{ $mdayKey }->{ $hrKey }->{ TotalPerHour } ++;
    $signIn{ $mdayKey }->{ $hrKey }->
       { $min < 30 ? q{HalfHour00} : q{HalfHour30} } ++;
}

foreach my $mdayKey ( sort keys %signIn )
{
    my $rhDaily = $signIn{ $mdayKey };
    print
       qq{$mdayKey\n},
       qq{  TotalPerDay - $rhDaily->{ TotalPerDay }\n};
    foreach my $hrKey (
       sort
       grep m{^Hour},
       keys %{ $rhDaily }
       )
    {
        my $rhHrly = $rhDaily->{ $hrKey };
        print
           qq{  $hrKey\n},
           qq{    TotalPerHour - $rhHrly->{ TotalPerHour }\n},
           qq{      HalfHour00 - },
              exists $rhHrly->{ HalfHour00 }
              ? qq{$rhHrly->{ HalfHour00 }\n}
              : qq{0\n},
           qq{      HalfHour30 - },
              exists $rhHrly->{ HalfHour30 }
              ? qq{$rhHrly->{ HalfHour30 }\n}
              : qq{0\n};
    }
}


__END__
0123456789012345678901234567890123456789  06/05/2008  8:31a&&&&&&&
abcdefghijabcdefghijabcdefghijabcdefghij  06/07/2008 12:15p&&&&&&&
0123456789012345678901234567890123456789  06/05/2007  1:46p&&&&&&&
abcdefghijabcdefghijabcdefghijabcdefghij  06/05/2008 12:49p&&&&&&&
This is a line of rubbish that doesn't match the data requirements
0123456789012345678901234567890123456789  06/05/2008  2:24a&&&&&&&
abcdefghijabcdefghijabcdefghijabcdefghij  06/05/2007 11:09a&&&&&&&
0123456789012345678901234567890123456789  06/12/2007 12:17a&&&&&&&
abcdefghijabcdefghijabcdefghijabcdefghij  06/05/2008 11:09p&&&&&&&
0123456789012345678901234567890123456789  06/05/2008 11:42p&&&&&&&