my ($filename, $filepath) = split '\s+', $line;