Hmmm... very nice. Didn't know about that yet. Thanks for pointing it out. :)

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