Help for this page
perl -nle '}{print $.' file
perl -lane '$c+=@F}{print $c' file
perl -le '$_=()=glob(pop);print' '246.56*'