p4 changes -u "$P4USER" -s pending -t -l | perl -ne "$(cat <<'EOF'
  next unless m/^Change /;
  chomp;
  while (my $summary = <>) {
    if ($summary =~ /\S+/) {
        $_ = "$_ $summary";
        last;
    }
  }
  if (/SHELVED/) { s/^/\e[3m/;  s/$/\e[0m/; }
  if (/NOBUG/)   { s/^/\e[31m/; s/$/\e[0m/; }
  s/\s+by $ENV{P4USER}\@/ /;
  s/\s+\*pending\*\s+/ /;
  #s/^Change\s+/CL\//;
  print;
EOF
)"