• Damian Conway's ten rules for when to use OO
• vshnu - the New Visual Shell (in Perl)
• SprintPCS camera phone to Perlmonks Monkpics
• Re: Int-3 equivalent?
• Re^4: promoting array to a hash

#!/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;
[download]