#!/usr/bin/perl -w
use strict;
use warnings;

print "Type in the current time!\n";

my $input = <STDIN>;

while($input)
{
    if($input =~ m/(\d)*(\d):(\d)(\d)(\w)(\w)/ | $input =~ m/(\d)*(\d):(\d)(\d)(\s)(\w)(\w)/)
    {
        if($1 > 1 || $2 > 2 || $3 > 6)
        {
            print "That is not a valid time!\n";
            print "Type the time again.\n";
            
            $input = <STDIN>;
        }
        else
        {
            print "That is a valid time!\n";
            $input = 0;
        }
    }
    else
    {
        print "Please be more specific.\n";
        
        $input = <STDIN>;
    }
}