#!/usr/bin/perl

$/ = "\n\n";

while (<>)
{
    $_ =~ s/\n/ /g;
    if ($_ =~ /ESTC/)
    {
	$_ =~ /ESTC.*?([0-9]+)/;
	$num = $1;
	$len = length($num);
	if ($len > 6)
	{
	    print $_ . "\n\n";
	}
    }
}