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

##</code><code>##

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