perl -ne 'print scalar <> if /energy/' filename

##</code><code>##

perl -ne 'print ++$i,scalar <> if /energy/' filename