while () { open (F3, "; print F2 if (/$lines/); close (F3); }