Here's another way:

    perl -ne 'print if $prev; $prev = /energy/' file

    # Or with a counter

    perl -ne 'print ++$i, $_ if $prev; $prev = /energy/' file
[download]

Your second solution could have been written as follows:     perl -ne 'print ++$i . <> if /energy/' filename

--
John.