while (<SCHEDULED>)
  {
    my ($who) = /^(.*?)\s/;
    ...
  }