perl -e 'my @arr=glob ("*.*");print "$_\n" for (@arr)'