E:\>perl -le"die $_ = () = split ',','a,b,c,d,e,f,g',-1"
7 at -e line 1.