my $etriped = 'rkvg';
$etriped =~ tr/a-zA-Z/n-za-mN-ZA-M/;
eval("$etriped");