get;$!=words;say +grep {$/=$![^3+$_];($1-$0)*($1-$2)>0&&$0!= $2},^($!-2)