$ perl t.pl t*
t.100, t.100.md5, t.10.md5, t.pl

$ perl t.pl 't*'
t*

$ cat t.pl
use strict;
use warnings;

print join(", ", @ARGV),"\n";