if ($start_input =~ /\d\d\d\d\.\d\d/ && $end_input =~ /\d\d\d\d\.\d\d/) {
   ...;
}
elsif ($start_input =~ /\d\d\d\d/ && $end_input =~ /\d\d\d\d/) {
   ...;
}