Select Code to Download

my $times = $ARGV[1];
my ($start_time, $end_time) = ( $times =~ /^(\d{6})-(\d{6})$/ ) or die
+ "Time values are not in correct form\n";
...
   ( $start_date ) = ( $dates =~ /^(\d{6})$/ ) or die "Date values not
+ in correct form";
   $end_date = $start_date;
}

my @matched;
foreach $file ( @filelist ) {   # or a while loop...
...
      push @matched, $file;
    }
}