while (my $line = <DATA>) {
    chomp $line;
    my @fields = split /,/, $line;
    my @ints = grep /^\d+$/, map { s/^(\d+)[a-z]?$/$1/; $_ } @fields;
    my $sum = 0;
    $sum += $_ for ( @ints );
    print $sum, "\n";
    warn "found non-integer fields at line $.: $line\n" if ( @fields != @ints );
}

__DATA__
86f,934e,92,102i,14,19,222,