open $vf, '>>', $b

##</code><code>##

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

##</code><code>##

open $vf, '+<', $b or die $!;