my $maxlen = 35;
s![?].*$!!; # chop query params if any
s{^(.*)(?=/[^/]/?)}{length $1 < $maxlen ? $1 : substr($1, 0, $maxlen-3)."..."}e;