http://www.perlmonks.org?node_id=1007929


in reply to Remove letters from variables used in math operation?

Easy peasy!

use warnings; while ($line = <DATA>){ chop($line); ($a,$b,$c,$d,$e,$f,$g)=split(",",$line); no warnings qw(numeric); $sum = ($a+$b+$c+$d+$e+$f+$g); print $sum; } __END__ 86f,934e,92,102i,14,19,222,

The numeric warning is not compulsory; it's not even enabled by default (hence you needing to explicitly type use warnings). If it's not helping you, then turn it off.

perl -E'sub Monkey::do{say$_,for@_,do{($monkey=[caller(0)]->[3])=~s{::}{ }and$monkey}}"Monkey say"->Monkey::do'