long_zeta@zeta09.local BIP 1 0 8 lx26-amd64 lx26-amd64 8 ... 642412 5.00248 0.00002 U6s53097 npatel37 correlat defaultdepartment r 224919.00000 15753.53518 0.32690 0 0 0 0 0 0 0.00002 1

##

use XML::Smart;
my ($xml,$qstat);

$qstat=`qstat -u \* -ext -xml -s r -F`;
$xml  = XML::Smart->new($qstat);

foreach ($xml->{job_info}->{queue_info}->{"Queue-List"}('@') )
  {
     print $_->{job_list}->{slots};
  }