while ( $window =~ m/([a-zA-Z]{3}\s{1,2}\d{1,2}.*\n)/oigc  ) {
            $line = $1;
            if ( $1 =~ /$re/ ) {
                &$callback($line);
            }
        }