while (<$vf>) {       
   if($_ =~ /module entity\;/)