Chromatic, Thanks for the reply, however, it didn't work. But, I used your advice on the next if statement. It appears that when the tpconfig command executes, it puts the header information in there which includes Device, Type and robot. Therefore, the unpack operator picks it up. Therefore, I put multiple next if statements to skip the Device, Type and robot entries. Here is the output of tpconfig command:

C:\>tpconfig -l
Device Robot Drive       Robot                    Drive      Device
Type     Num Index  Type DrNum Status  Comment    Name       Path
robot      0    -    TLD    -       -  -          -          \\.\Scsi6
+:
[download]

I then used the following to fix the code. If you see a more elegant way of putting multiple next unless statements-- please feel free to flame me. Thanks for your help. The code is shown below:

sub delete_drives3 {
my $drive;
$count = -1;
open(TPCONFIG,"tpconfig -l|");
    while(<TPCONFIG>) {
    ($drive) = unpack '@0 A5',$_;
 next if /^r/;
 next if /^D/;
 next if /^T/;
                     ++$count;
 print "Deleting drive $count\n";
 system("tpconfig -delete -drive -index ${count}");
     };
};
[download]