#!/usr/bin/perl

open IN,$ARGV[0] or die;

$echo = 0;
while($l=<IN>)
{
  chomp($l);
  if($echo)
  {
    print "$l\n";
  }
  if($l =~ /^==/)
  {
    $echo = !$echo;
    if($echo)
    {
      print "$l\n";
    }
  }
}