{
            # Example: "User: Neil Sleightholm     Date:  9/03/01   Time:  8:15"
            # In US Example: "User: Neil Sleightholm     Date:  9/03/01   Time:  8:15p"

            $line =~   m/\w+:\s+(.*?)\s+\w+:\s+(.*?)\s+\w+:\s+(.*):(.*)([ap])/;

            $user = $1;
            $date = $2;
            $hour = $3;
            $minute = $4;
            $ampm = $5;

        print STDERR ">>>> $user, $date, $hour;$minute,$ampm\n"; # DEBUG ONLY