perl -ne '@_=split/,/;$a=@_>2?@_-3:0;print join",",@_[$a..$#_]'