<>;print$r+=??|$a<$_,$/for$a=<>,<>