my ($penultimate, $last) = (split " ", $line)[-2, -1];