my ($month, $day, $time, $host, $process, $user, $level, $path, $bytes, $speed); ($month, $day, $time, $host, $process, $user, $level, $path) = split / /, $_, 8; $path =~ s/ downloaded \((\d+) bytes, ([\d.]+)KB/sec\)\z// and ($bytes = $1, $speed = $2);