#!perl -p
$'%$_ or$s+=$_ for//..($s=$_)/2;s/$/: $s/