sub logit {
    local $.=1;
    my $line  = shift @_;
    $line =~ s/\0//g;
    return unless (/\S/..0);
    print $line
}