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

##</code><code>##

perl -e 'for (glob ("*.*")){print "$_\n" if (-T $_);}'