use Archive::Tar;

my $tar = Archive::Tar->new( "test.tar" );

# get a list of Archive::Tar::File objects whose file names match "lr3*":

my @files = grep { $_->name =~ /^lr3/ } $tar->get_files;

for my $file ( @files ) {
    $tar->extract_file( $file );  # this method works on A::T::F objects
}