@who = 
  grep { /\bjoebloe\b/ } `who`;

##</code><code>##

foreach $who (@who) { 
  # ... do something with $who 
}