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