my ($first, $second) = [(split)[1,-1]];
$second = $first unless defined $second;