#!/usr/bin/perl
while ($_=<>) {
        #s/[\r\t\f\x00]/\n/g;
        #s/\n\s+/ /g;
        #s/\n+/\n/g;
        #s/(\n\s)+//g;
        #s/\n\s+//g;
        #s/\s+/ /g;
        #s/\s{2,}//g;
        unless (
                /INFO Login./||
                /INFO Logout./||
                /INFO Dropped./||
                /INFO Proxy \(6.1.0.4\) started/||
                /DEBUG Password changed for Trading Partner/||
                /DEBUG Disconnect./||
                /DEBUG Clear garbage. /||
                /DEBUG New connection./||
                /DEBUG New database connection./||
                /DEBUG Closing database connection/||
                /DEBUG Database connections in pool:/||
                /DEBUG Show images./||
                /TRACE Trace In./||
                /TRACE Trace Out./||
                /WARN Login failed. Error 'authentication failed'/||
                /LOGINPARMS/||
                /DCN/
                )
        {
                print;
        }
}