Re: Re: Re: Extract lines and output...

[broquaint]

Shorter still -

open(LOG, ">logfile.txt");
while($FL = <*.extension>) {
    open(FL) and print LOG "$_\n",(<FL>)[0..3] and close(FL)
}
close(LOG);

But we could golf this 'til the cows come home :o)
HTH

broquaint