my $data = do {local $/;<OLD>}; # slurp the whole file  into $data 
my @replace_list = ('','Notes:','Director:','Actors:'); 
while ($data =~ s/(?<=$search)/shift @replace_list/egs) {};