$cryped = substitution_cypher(); $text =~ y/a-z/$crypted/e;