Hi William, a more generalized solution -

my @files=`ls Some_*zip This_*zip`;

foreach (@files) {
    my ($day) = /(?:Some|This)_(\d+)/;
    ....
}
[download]

Use ?: to forget the value of Some or This, which will make the regex a little bit more efficient.