$num =~ s{(.)(z*)$}{ [download]
$left =~ tr/0-9a-y/1-9a-z/ or $left = "1"; [download]
In reply to Re: Re: Iterating through string combinations by I0 in thread Iterating through string combinations by patgas