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