if ($start_input =~ /^\d\d\d\d$/ && $end_input =~ /^\d\d\d\d$/){