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

##</code><code>##

use v5.12;

my $name = "Toby";

{
	say "FIRST BLOCK";
	
	if    ($name =~ /^T/)    { say "name starts with T" }
	elsif ($name =~ /^Toby/) { say "name is Toby" }
	
	say "END BLOCK";
}

{
	say "SECOND BLOCK";
	
	if    ($name =~ /^Toby/) { say "name is Toby" }
	elsif ($name =~ /^T/)    { say "name starts with T" }
	
	say "END BLOCK";
}