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

##</code><code>##

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