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