$_ = 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*BRASIL>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*BRASIL>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*BRASIL>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*BRASIL>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;