in reply to Tossing unwanted values from returned list

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

[download]

In Section Seekers of Perl Wisdom