perl -apF, -e'if($F ne$F[0]){$F=$F[0];open F,">$F"or die;select F}s/[^,]+//'