Select Code to Download

my $debug = 0;
my $usage = "Usage: $0 [-d|-h] month start end\n blah blah";
...
    $debug++;
}
die $usage unless ( @ARGV == 3 ); # could add more conditions...

my @greps = qw(\string\1
               \string\1\extra
               \string\2
               %and.so.on%
               );