perl -lne '$k=(/ENERGY/)?"e":"o";$c{$k}++;END{print "$c{e} $c{o}"}' data.file