$ perl -wE'my @x=`ls -1`;say $#x'
102