my $curpos = -1; 
my $curpos1 = -1; 
my $curpos2 = -1; 
my $curpos3 = -1; 
my $cur = -1; 
open (QUOTAOUT, ">D:\\Home.txt") || die "Can't open output file."; 
$file = "Home01.txt"; 
chomp ($file); 
open (QUOTA1, "D:\\Home01.txt") || die "Can't open file.";  
while (defined ($file = <QUOTA1>)) { 
$quota = <QUOTA1>; 
next if ($quota eq ""); 
@quota = split(/\t/, $quota); 
@quota[1] =~ s/^\://; 
@quota[1] =~ s/^\s+//; 
next if (@quota[0] eq "Used(%)"); 
if (@quota[0] eq "Object") { 
  @quota[1] =~ tr/A-Z/a-z/; 
  @uidt = split(/\\/, @quota[1]); 
  chomp (@uid[2]); 
  @uidt[2] =~ s/\W.*//; 
  $curpos = $curpos + 1; 
  $curpos3 = $curpos3 + 1; 
  @uid[$curpos] = @uidt[2]; 
  @path[$curpos3] = @quota[1]; 
  next; 
  } 
if (@quota[0] eq "Quota") { 
  @quotast = split(/\s/, @quota[1]); 
  chomp (@quotast[0]); 
  @quotast[0] =~ s/\W.*//; 
  $curpos1 = $curpos1 + 1; 
  @quotas[$curpos1] = @quotast[0]; 
  next; 
  } 
if (@quota[0] eq "Current") { 
  @usaget = split(/\s/, @quota[1]); 
  chomp (@usaget[0]); 
  @usaget[0] =~ s/\W.*//; 
  $curpos2 = $curpos2 + 1; 
  @usage[$curpos2] = @usaget[0]; 
  next; 
  } 
} 
close QUOTA1; 
chomp (@path); 
foreach $uid(@uid) 
{ 
$cur = $cur + 1; 
print QUOTAOUT "Usage for $uid is @usage[$cur] bytes. 
Quota is @quotas[$cur] bytes. Server is lnxdayhome01. Path  is @path[$cur]\n";