perl -F, -nae '$ok?(print $last):($ok=1) if ($F[3] ne (split/,/,$last)[3]); $last=$_; END{print $last;}' file