$ ls
copy1  copy2  file1  file2  file3
$ perl -le 'foreach $i ( glob q{c*} ) { print $i }'
copy1
copy2
$