Guys, I am new to perl, I am having trouble capturing the required output from the command, with my limited knowlege i tried to put something togather. not sure how to proceed beyond. What i am trying to achieve for certain drives ex : B3494_901, B3494_102 from the outputlist is to find the index number ex: 19 for drive B3494_102 as in the output below then collect the different index number for these selected drives in a variable $idx = 1:2:19:5 then i can use the $idx inside the command 'tpconfig -multiple_delete -drive $idx ' Any help would be much appericiated. Script use strict; use warnings; my @tpd = `tpconfig -dl`; my $idx; my $drv; foreach my $line (@tpd) { chomp $line; #$line =~ m/^Index\s+\d\d/ && do { $line =~ m/^Index\w+/ && do { $idx = $1; print "$idx \n"; }; $line =~ /^Drive.*\s+\w\d+/ && do { $drv =$1; print "$drv /n"; }; } ( tpconfig -dl )command output below Drive Name B3494_102 Index 19 NonRewindDrivePath /dev/rmt/23cbn Type hcart2 Status DOWN SCSI Protection SR (Global) Shared Access Yes TLH(0) IBM Device Number=974680 Serial Number 000007897468 Different Drives Drive Name B3494_901 Drive Name B3494_100 Drive Name B3494_102 Thanks SjThread Next