Perl 读取特定格式的文件名

在Perl语言编程一书中学习到了一种直接读取特定格式文件的方法，非常简洁，代码如下：

while (<*.pl>){
	print $_." ";
}