echo password | perl -nle '$="{".join("},{",split(//,$))."}"; s/a/a,4/ig;s/o/o,0/ig;s/s/s,5/ig; print for glob($_);'