$ perl -Mstrict -Mwarnings -le " print for split /,/, @ARGV " ro sham bo
3