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