open AHND,'a';$_=;@Lines=split;open BHND,'b';open CHND,'c';while(){ for $re(@Lines){ if(/$re/){ print CHND $_; last; } }}
