open (f,"D:\\file");
while (<f>){
if (/TOTAL ELASTIC/){
$a=1;
$b=0;
}
if ($a){
print;
$b=$b+1;
$result=$result.$_;
}
if ($b==10){
$a=0;
}
}
print"----------------this is \$result---------------------\n";
print $result;