if(++$linectr == 1) { my($scheck, $echeck, $fcheck, $lcheck) = split; # Splits on whitespace by default.