A quick check shows that longmess protects against newlines in the parameters, so manually filtering should work fairly easily (completely untested):

$longmess =~ s/\n\tLog::Dispatch::(Perl::|::Output::)?[^:]+\(.*//g;
[download]