Perl 5 -ap, 156 bytes
for(;$i<@F;$p=++$i){if($F[$i-1]-$F[$i+1]||$F[$i]>$F[$i+1]){$i++while$F[$i]<$F[$i+1];$i++while$F[$i]>$F[$i+1]&&$i<@F&&$F[$i]>$F[$i+2]}$\.=$".sum@F[$p..$i]}}{
Perl 5
Xcali
- 16.2k
- 2
- 15
- 39