I believe this is a job for superman...glob().

my @cfiles = glob('*.c');
print join("\n",@cfiles),"\n";
[download]

And here it is in action:

$ ls
test_  test_data_rw.C  test_exitcode  test_exitcode.c  test_rw_bindata
+.c
$ perl -e '
  >my @cfiles = glob("*.c");  # used "'s for CLI input.
  >print join("\n",@cfiles),"\n";
  >'
test_exitcode.c
test_rw_bindata.c
[download]

_ _ _ _ _ _ _ _ _ _
- Jim
Insert clever comment here...