<>=~$";$%=$'; map{ $x=0;map$x+=$_,glob;print$x,$/ }<>=~/(?: ?\b\d*?[13579]\b){$%,}/g