$mytime = <STDIN>;
chomp $mytime

if ($mytime =~ /([10-12]|[1-9])\:[0-59](am|pm)/i) 
{print "$time is a valid time.";}