$/ = "=================\n";
while ( <DATA> ) {
    my @lines = split /\n/;
    next unless $lines[4] =~ /'IC--E'/;
    print "@lines[0, 10]\n";
}