#!/usr/bin/env perl

open F, "</tmp/fff";

$b=$between=$energy=0;
while (<F>) {
    if (/energy/i) {
        $energy++;
        $between=$b;
    }
    elsif ($energy) {$b++}
}

print $energy, "/", $between;