open(my $netbackup, "-|", "autorep -J NB\%") or die could not open netbackup:$!";
while (<$netbackup>){
  next if m/Job Name|____/;
  # do the equivalent of sed
  #Presumably, you don't need sort 
  # If you do, you can apply filters, accumulate, THEN sort in perl.
}
close $netbackup;