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]

In reply to RE: RE: RE: RE: Increment by raj8
in thread Increment by raj8

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.