$§ = lc(sub{} ^ " \6 \n");              # $§ is just another variable
                                        # Code reference [CODE(...)]
                                        # XORed with " \6 \n" = cido([...])
$§ =~ s/\(.*\)//;                       # Removing the reference informations.
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 characters"
                                        # variable, which contains by default
}                                       # "\n-"
print $:;                               # Output. ("\n-flgr")
1                                       # Just here to fill the line
                                        # (and to make B::Deparse output
                                        # a '???';).