$ touch {a,b,c}.txt; perl -le 'my $c =()= glob "*.txt"; print $c'
3