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