DB<7> open H,'E.LIB'; while(<H>){ print '='.$_; if($_ =~ /^\*\h*motor/i){ break;} };close H;