Help for this page

Select Code to Download

Select or download this

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

Select or download this

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