perl -nE"$l=index$_,',';$m<$l and $m=$l}{ say $m"