perl -nle '}{print $.' file

##</code><code>##

perl -lane '$c+=@F}{print $c' file

##</code><code>##

perl -le '$_=()=glob(pop);print' '246.56*'