next unless $file =~ /\.t(?:ar\.)?gz\z/);
# it should be
next unless ($file =~ /\.t(?:ar\.)?gz\z/);
##</code><code>##

#!/usr/bin/perl -w
$|++;
use strict;
my (@list, $d, $i);
die "Need Directory Param!\n" unless $ARGV[0];
my $cmd = qq/tar -zxvf /;
opendir LOCAL,$ARGV[0] || die "Cannot Open dir $ARGV[0]";
@list = readdir LOCAL;
foreach $d (0..$#list)
{
	if($list[$d] =~ /.+\.t?(ar\.)?gz/)
	{
		qx/$cmd $ARGV[0]\/$list[$d]/;
		$i++;
	}
}
print "$i files expanded!\n";
closedir LOCAL;