my @paragraph =
    map {
        local $_ = lc;
        tr/-~//cd;

        /foobar/
            ? ()
            : do {
                s/administrator/admin/g;
                length() > 60
                    ? ()
                    : $_ } }
    grep /^#/,
    @lines;