>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