while (<XFERLOG>) {
  ($file, $dir, $login, $status) = (split)[8,11,13, 17];
  ...
}