my ($owner, $file) = ($line =~ /\\(\w+)\s+(.*)$/)[0,1];