#!/usr/local/bin/perl -w
use strict;

while (<DATA>) {&logit ($_)}

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

__DATA__







Some data

Some more


Some later data