c:\@Work\Perl\monks>perl -wMstrict -le
"my $line = 'ubuntu    9377  0.0  0.1  23668  1600 pts/2    S+   18:23   0:00 top';
 my $owner = 'ubuntu';
 ;;
 $line =~ m{ $owner \s+ (\d*) (\w+) }xms;
 print qq{captured:  (\\d*) ($1)  (\\w+) ($2)};
"
captured:  (\d*) (937)  (\w+) (7)