On Thursday 02 November 2006 8:35 am, Alan Young wrote: > perl -ape '$_=((grep{(abs($F[$_]-$F[$_-1])||@F)>=@F}1..$#F)?"not a > ":"")."match\n"' Wow! Truly a thing of beauty. "-a" - who knew. Paul