$ perl -MO=Deparse -wnE '$s+=$_}{say$s'