$_ = join (
' ',
reverse(
map( ucfirst,
split (
',',
do {
%a = (
'gbckdrzqfrlzbmotgdrziwst',
# Nice obfuscation here. Talk about hiding in plain sight...
# $a=s/([i-j])/j/; 'gbckdrzqfrlzbmotgdrzjwst',
# $a=s/([u-y])/u/; 'gbckdrzqfrlzbmotgdrzjust',
# $a=s/([z])/,/; 'gbckdr,qfrlzbmotgdrzjust',
# $a=s/([a-b])/a/; 'gackdr,qfrlzbmotgdrzjust',
# $a=s/([m-n])/n/; 'gackdr,qfrlzbnotgdrzjust',
# $a=s/([g-h])/h/; 'hackdr,qfrlzbnotgdrzjust',
# I assume the extra newline was unintentional?
# $a=s/([z])/
# ,/; "hackdr,qfrl\n,bnotgdrzjust",
# $a=s/([p-q])/p/; "hackdr,pfrl\n,bnotgdrzjust",
# $a=s/([d-f])/e/; "hacker,pfrl\n,bnotgdrzjust",
# $a=s/([f])/e/; "hacker,perl\n,bnotgdrzjust",
# $a=s/([z])/,/; "hacker,perl\n,bnotgdr,just",
# $a=s/([g])/h/; "hacker,perl\n,bnothdr,just",
# $a=s/([b])/a/; "hacker,perl\n,anothdr,just",
# $a=s/([d])/e/; "hacker,perl\n,another,just",
'+i-j])/j/;+u-y])/u/;+z])/,/;+a-b])/a/;+m-n])/n/;+g-h])/h/;+z])/
,/;+p-q])/p/;+d-f])/e/;+f])/e/;+z])/,/;+g])/h/;+b])/a/;+d])/e/;'
);
$a = join ( '', keys(%a) );
for ( 1 .. 14 ) { $a{$a} =~ s/\+/<PM*BRASIL>/; }
# Looks like a file glob, doesn't it? Guess again!
# '<PM*BRASIL>i-j])/j/;<PM*BRASIL>u-y])/u/;<PM*BRASIL>z])/,/;<PM*BRASI
+L>a-b])/a/;<PM*BRASIL>m-n])/n/;<PM*BRASIL>g-h])/h/;<PM*BRASIL>z])/
# ,/;<PM*BRASIL>p-q])/p/;<PM*BRASIL>d-f])/e/;<PM*BRASIL>f])/e/;<PM*BRA
+SIL>z])/,/;<PM*BRASIL>g])/h/;<PM*BRASIL>b])/a/;<PM*BRASIL>d])/e/;'
for ( 1 .. 14 ) {
$a{ $a } =~ s/<P/\$a/;
# '$aM*BRASIL>i-j])/j/;$aM*BRASIL>u-y])/u/;$aM*BRASIL>z])/,/;$aM*BRASI
+L>a-b])/a/;$aM*BRASIL>m-n])/n/;$aM*BRASIL>g-h])/h/;$aM*BRASIL>z])/
# ,/;$aM*BRASIL>p-q])/p/;$aM*BRASIL>d-f])/e/;$aM*BRASIL>f])/e/;$aM*BRA
+SIL>z])/,/;$aM*BRASIL>g])/h/;$aM*BRASIL>b])/a/;$aM*BRASIL>d])/e/;'
$a{$a} =~ s/M/=~s\//;
# '$a=~s/*BRASIL>i-j])/j/;$a=~s/*BRASIL>u-y])/u/;$a=~s/*BRASIL>z])/,/;
+$a=~s/*BRASIL>a-b])/a/;$a=~s/*BRASIL>m-n])/n/;$a=~s/*BRASIL>g-h])/h/;
+$a=~s/*BRASIL>z])/
# ,/;$a=~s/*BRASIL>p-q])/p/;$a=~s/*BRASIL>d-f])/e/;$a=~s/*BRASIL>f])/e
+/;$a=~s/*BRASIL>z])/,/;$a=~s/*BRASIL>g])/h/;$a=~s/*BRASIL>b])/a/;$a=~
+s/*BRASIL>d])/e/;'
$a{$a} =~ s/\*/\(/;
# '$a=~s/(BRASIL>i-j])/j/;$a=~s/(BRASIL>u-y])/u/;$a=~s/(BRASIL>z])/,/;
+$a=~s/(BRASIL>a-b])/a/;$a=~s/(BRASIL>m-n])/n/;$a=~s/(BRASIL>g-h])/h/;
+$a=~s/(BRASIL>z])/
# ,/;$a=~s/(BRASIL>p-q])/p/;$a=~s/(BRASIL>d-f])/e/;$a=~s/(BRASIL>f])/e
+/;$a=~s/(BRASIL>z])/,/;$a=~s/(BRASIL>g])/h/;$a=~s/(BRASIL>b])/a/;$a=~
+s/(BRASIL>d])/e/;'
$a{$a} =~ s/BRASIL>/\[/;
# '$a=~s/([i-j])/j/;$a=~s/([u-y])/u/;$a=~s/([z])/,/;$a=~s/([a-b])/a/;$
+a=~s/([m-n])/n/;$a=~s/([g-h])/h/;$a=~s/([z])/
# ,/;$a=~s/([p-q])/p/;$a=~s/([d-f])/e/;$a=~s/([f])/e/;$a=~s/([z])/,/;$
+a=~s/([g])/h/;$a=~s/([b])/a/;$a=~s/([d])/e/;'
}
eval( $a{$a} );
$_ = $a;
}
) )
)
)
. ', ';
print;