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

##</code><code>##

eval "\$text =~ y/a-z/$crypted/";