Select Code to Download

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

#!/usr/bin/perl -w
$|++;
...
}
print "$i files expanded!\n";
closedir LOCAL;