in reply to Re^3: arithmetic in a regex ?
in thread arithmetic in a regex ?

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

[download]

map{substr$_->[0],$_->[1]||0,1}[\*||{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^*ARGV,3]

In Section Seekers of Perl Wisdom