$ perl -wle " print for split //, @ARGV " asdf
1

$ perl -wle " print for split //, @ARGV " a s d f
4

$ perl -wle " print for split //, $ARGV[0] " asdf
a
s
d
f