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