my $it = natatime 5, <DATA>;
with
my $it = natatime 5, grep /\A\s{4}\d/, <DATA>;