#!/usr/bin/perl
use strict;
use warnings;
use Archive::Tar;

my $arch = shift(@ARGV);
my $regexp=shift(@ARGV);

my $tar  = Archive::Tar->new( $arch ) or die "Fehler ($!)";
$tar->extract([grep{/$regexp/}$tar->list_files()]);
exit(0);