Or

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

or even

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