#!/home/e3/perl5/perlbrew/perls/perl-5.14.0/bin/perl
while(<@ARGV>){ printf "%s\n",length($_); }