Select Code to Download

my $month_abv = qr/[[:upper:]][[:lower:]]{2}/;

...
    }
    $line =~ /./sgc; # no matches, bumpalong
}