$ perl -E  '@c = glob "*.*"; say for @c;'
1095341.pl
172.20.98.3.txt
8188eu-v7-20150914.tar.gz
a.exe
a.pl
abdou.pl
add2.pl
add_2.pl
age_switch.pl
amazon.pl
anagrams.pl
any.pl
any2.pl
any3.pl
aoh.pl

[... many lines omitted for brevity ...]

warnings.txt
weight.pl
while.pl
wifi.pl
words.txt
xml.pl
xml_mac.pl
xxxA.txt
xxxH.txt
xxxL.txt
$