#!perl -lpaF\d*
$_=$-=$_;$_*=$-while$--=$#F