perl -le '@t=split(/[A-Z]|[a-z]/,"1gGiI234");print "$#t\n";'