Select Code to Download

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/) {
   ...;
}

use v5.12;

...
    
    say "END BLOCK";
}