#! /usr/bin/perl

my $c = 1;

while (<STDIN>)
{
    chomp ($_);
    if ($_=~/<h1><i>PROTEIN REPORT/)
      {
	  print "$_\n";
	  $c = 0;
      }
    elsif ($c == 1)
      {
	  next;
      }
      elsif ($_=~/<!--Pie de página-->/)
      {
	  last;
      }
      else
	{
	    print "$_\n";
	}
   
}