print pop(split(/\s/, $str));