$msg =~ s{^(.+)( at .+)}{\e[31m$1\e[0m$2} if $msg !~ m{^#};
}
$msg =~ s{\[(\d+)\]}{ '[' . port2color($1) . ']' }eg;
- $msg =~ s{\|}{\e[34m\|\e[0m}g; # blue bars
- $msg =~ s{"}{\e[33m"\e[0m}g; # dark quotes
+ $msg =~ s{(\||=>)}{\e[34m$1\e[0m}g; # blue
+ $msg =~ s{(["\{\}\#])}{\e[33m$1\e[0m}g; # yellow
print STDERR $msg unless $msg =~ m{^#} && ! $ENV{DEBUG};
return 1;
};