LINE:
while (<>) { #readline into $_; diamond operator
...<your '-e' code here>...
}
continue {
    print or die "-p destination $!\n";
}

##</code><code>##

perl -pe "last if ($cnt > 50000);$_='' if ($cnt++ < 41900);" data02.log > data03.log