#!/usr/bin/perl
use strict;
use warnings;
$ENV{PATH} = qq(/opt/SUNWsamfs/sbin:/usr/bin);
open (ARC, "archiver -lv |") or die $!;

        foreach (<ARC>)
        {
                ##-- Tape --##
                if (/allsets/ .. /fs_clinical.1/)
                {
                        print $_;
                        my $tape =$1;
                } else {
      /  \G 'heartlab.1'/
      }
        }
close (ARC);