(my $part, $line) = split / /, $line, 2;