if ($file =~ m/\A\d\.txt\z/) {
}
elsif ($file =~ m/\A\d{2}\.txt\z/) {
}
...