#!/usr/bin/perl ############################
@a = qw/kvtu bopvuifs qfsm ibdlfs/;$b = ".";
$n = 0;foreach $a (@a){$a[$n] =~ y/b-y/a-z/;
if ($n < @a-1) {print $a[$n] . " " ;}else {
print $a[$n] . ".\n";}$n++;}#I am what I am.
In reply to A first Obfuscation. by j.a.p.h.
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |