while (<DATA>)
{
  if (/^war.*[{]/../[}]/)
  {
    $_ = "==> $_"; # Show the matching lines
  }
  print;
}

__DATA__
bla
bla
war eligible, init =0*DEC0, ev (VARIABLE){1*BIN0,2*DEC3,6*BIN4,
& 5*BIN43,6*DEC32, 
& 5*BIN43,7*DEC32}
bla
bla