$§ = lc(sub{} ^ " \6 \n");              # $§ is just another variable
                                        # Code reference [CODE(...)]
                                        # XORed with " \6 \n" = cido([
+...])
$§ =~ s/\(.*\)//;                       # Removing the reference infor
+mations.
for (split('', $§)) {                   # Go through the characters.
    $/ = $_;                            # Using the input seperator as
+ temp.
                                        # variable.
    for (5 .. 7) {                      # Do following 3 times...
        ++$/;                           # Increase temporary variable.
    }                                   # (c+3 = f etc.)
    $: .= $/;                           # Append the new character to 
+$:,
                                        # The "format line break chara
+cters"
                                        # variable, which contains by 
+default
}                                       # "\n-"
print $:;                               # Output. ("\n-flgr")
1                                       # Just here to fill the line
                                        # (and to make B::Deparse outp
+ut
                                        # a '???';).
[download]

-- 
arneb@emergency:~ > perl -MO=Deparse -e "(0); #Confusing perl..." 2> /dev/null
'???';
arneb@emergency:~ > 

Well done. :)



$§=lc(sub{}^" \6 \n");$§=~s/\(.*\)//;for(split ('',$§)){$/=$_;for(5..7){$/++}$:.=$/}print$:;1