for( $thingy{foo()}{bar()} ) {
        s/^\s+//;
        s/\s+(#.*)?$//;
        tr/A-Z/a-z/;
    }