Select Code to Download

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

perl -F, -nae '$s{$F[3]}=$_; END{print values %s;}' file