Re: [MacPerl] 400 characters..first 50?

[Wireles316]

Thanks a bunch. The code works great. I was wondering... Is there a way that 
after writing the first 50 characters of a certain file, that the script 
could skip the next 50 characters, and then continue and write the next 50? 

Thanks in advance.
-------------------------------------------The code so far---
open D_IN,  "<TheFile.txt" or die "Not found";
open D_OUT, ">TheFile50.txt" or die "Cannot write";

$count = read  D_IN, $fifty, 50;
print D_OUT $fifty;

print $fifty;