my $line;
do {
   $line = <DATA>;
} until ($line=~m/\S/);

do {
   s/\0//g;
   print $line;
} while($line=<DATA>);

__DATA__



Some text

More text
And so one

and on...