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

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