$perlRulez = "FCCJ Webmaster"; if ($perlRulez =~ /(F)(C)(C)(J)( )(W)(e)(b)(m)(a)(s)(t)(e)(r)/) { print "$4", chr(ord($12)+1), "$11$12$5", uc($10), chr(ord($9)+1), chr(ord($14)-3), "$12", lc(chr(ord($1)+2)), reverse($14,$13), "$5", uc(chr(ord($14)-2)), "$13$14", chr(ord($9)-1), "$5", uc(chr(ord($7)+3)), "$10", chr(ord($10)+2),chr(ord($9)-2), reverse($14,$13), "\n"; }
