#!/usr/local/bin/perl
open PS, '/usr/ucb/ps auxwwwe |';
while (<PS>) {
     if (/PB_REMOTE/) {
         @a = (/(\S+) .*(pts\/\d+) (.*)/);
         splice(@a,2,1,( $a[2] =~ /PB_REMOTE_(\S+)=(\S+)/g));
         print join " ",@a,"\n";
   }
}
close PS;