#! c:/perl/bin/perl.exe
use strict;
use Archive::Tar;

system(cls);
my $tar = Archive::Tar->new();

$tar->read("c:\\emcgrab.tar.gz", 1);
@_ = $tar->list_files();
print "\n\n";
for my $modinfo (@_)
{
	next unless ($modinfo =~ /modinfo.txt/);
	$tar->extract_file( $modinfo, "c:\\Emcmodinfo.txt");
	open(FILE,"c:\\Emcmodinfo.txt") || die;
	chomp (my @stuff = <FILE>);
	for my $line (@stuff)
	{
		next unless ($line =~ /vx/);
		$line =~ s/^\s+//;
		print "$line\n";
		$line =~ /^(\d+)\s+(\d+\w+\d+)\s+(\d+\w+)/;
	}
	
		
}