$/=$",$\+=$c=-<>?$c:$_ for 1..<>;print