# [Perl 5] `-ap`, 156 bytes

<!-- language-all: lang-perl -->

    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]}}{

[Try it online!][TIO-jvy55hf1]

[Perl 5]: https://www.perl.org/
[TIO-jvy55hf1]: https://tio.run/##K0gtyjH9/z8tv0jDWiXTxsHNWqXAVltbJVOzOjNNQ8UtWiVT1zBWF8zQNoytqQGzYu1gAprVQEq7PCMzJxUiYwOTsUaTgGtRUwNbBKSQxY1ia1Vi9GxVlPSKS3MdgEIFenpA2dra6v//DQ0UDE0VjICkAZQ0NPiXX1CSmZ9X/F/X11TPwNAASPtkFpdYWYWWZObYAs34r5tYAAA "Perl 5 – Try It Online"