use bigint;print[--$/,<>=~('(.*)\s'x6),$4]->[$2+0<=>$5]