perl运行出现invalid argument......line15，求帮忙看一下？

新手小白，在perl运行过程中发现invalid argument
我的代码如下
use strict;
use warnings;

my $newDir="files";
unless(-d $newDir)
{
mkdir $newDir or die $!;
}

my @allFiles=glob("*");
foreach my $subDir(@allFiles)
{
if(-d $subDir)
{
opendir(SUB,".\$subDir") or die $!;
while(my $file=readdir(SUB))
{
if($file=~/.gz$/)
{
copy .\\$subDir\\$file .\\$newDir;
}
}
close(SUB);
}
}
出现的问题是 invalid argument at xxxxx.pl line 15
我想问一下15行是哪一行？空格行算一行吗？
谢谢各位大神帮忙

可以把你的编译器打开显示行号就能看到了