my ($last, $penultimate) = reverse split for $line;