Select Code to Download

s/(?:$search>){3}()\w+\s+/Notes:/;
s/(?:$search>){5}()\w+\s+/Director:/;
s/(?:$search>){7}()\w+\s+/Actors:/;

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) {};

#!/usr/bin/perl -w
...
    exit(1);
}