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