my $regex = qr/ \d (??{ substr($&, -1) + 1 }) + /x;

"148012" =~ $regex;

print ">$&<"

__END__
>012<