Re: Remove letters from variables used in math operation?

[AnomalousMonk]

Another peasibility:

>perl -wMstrict -le
"my $s = '86f,934e,92,102i,14,19,222,';
 ;;
 my ($a,$b,$c,$d,$e,$f,$g) = split m{ [[:alpha:]]* , }xms, $s;
 my $sum = ($a+$b+$c+$d+$e+$f+$g);
 ;;
 print $sum;
"
1469

Update: Or even:

>perl -wMstrict -le
"use List::Util qw(sum);
 ;;
 my $s = '86f,934e,92,102i,14,19,222,';
 ;;
 my $sum = sum split m{ [[:alpha:]]* , }xms, $s;
 ;;
 print $sum;
"
1469

Also (tested):  my $sum = sum $s =~ m{ \d+ }xmsg;