...if regex...
   seek(LOG,0,0) || die "Seek error: $!";
   ...process line...
   truncate(LOG,tell(LOG))