JobID           Type State Status               Policy Schedule     Client Dest Media Svr Active PID
       41735         Backup  Done      0     Policy_name_here    daily hostname001 MediaSvr1       8100
       41734         Backup  Done      0     Policy_name_here    daily hostname002 MediaSvr1       7803
       41733         Backup  Done      0     Policy_name_here    daily hostname004 MediaSvr1       7785
       41732         Backup  Done      0     Policy_name_here    daily hostname005 MediaSvr1       27697
       41731         Backup  Done      0     Folicy_name_here    daily hostname006 MediaSvr1       27523
       41730         Backup  Done      0     Policy_name_here    daily hostname007 MediaSvr1       27834
       41729         Backup  Done      0     Policy_name_here        - hostname008 MediaSvr1       27681
       41728         Backup  Done      0     Policy_name_here        - hostname009 MediaSvr1       27496
       41727 Catalog Backup  Done      0              catalog     full hostname010 MediaSvr1       27347
       41712 Catalog Backup  Done      0              catalog        - hostname004                 30564 

##</code><code>##

/(\d+)?\s+((\b[^\d\W]+\b)|(\b[^\d\W]+\b\s+\b[^\d\W]+\b))?\s+((Done)|(Active)|(\w+\w+\-\w\-+))?\s+(\d+)?\s+((\w+)|(\w+\_\w+)|(\w+\_\w+\_\w+))?\s+((b[^\d\W]+\b\-\b[^\d\W]+\b)|(\-)|(\b[^\d\W]+\b))?\s+((\w+\.\w+\.\w+)|(\w+))?\s+((\w+\.\w+\.\w+)|(\w+))?\s+(\d+)?/g 

##</code><code>##

#!/usr/bin/perl
#

use strict;
use warnings;

my $output = `bpdbjobs`;

while (my $line = $output) {
        chomp $line;
        my @array = $line =~ /(\d+)?\s+((\b[^\d\W]+\b)|(\b[^\d\W]+\b\s+\b[^\d\W]+\b))?\s+((Done)|(Active)|(\w+\w+\-\w\-+))?\s+(\d+)?\s+((\w+)|(\w+\_\w+)|(\w+\_\w+\_\w+))?\s+((b[^\d\W]+\b\-\b[^\d\W]+\b)|(\-)|(\b[^\d\W]+\b))?\s+((\w+\.\w+\.\w+)|(\w+))?\s+((\w+\.\w+\.\w+)|(\w+))?\s+(\d+)?/g;
        foreach my $s (@array) {
                print "'$s'\n";
        }
}