Shorter still -

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

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

broquaint