my $regex = join '|', map $_ . '[a-z]' . ($_ + 1), 0 .. 8;
...
    my ($result) = $line =~ /($regex)/;