while ($newtime !~ /[0-59\*]\s+[0-23\*]\s+[1-31\*]\s+[1-12\*]\s+[0-6\*]/) {
       print qq (\n Enter the time:  );
       $newtime = <STDIN>;
       chomp $newtime;
   }