Hello

i think you forgot to open the file in order to search inside it

open the file

open(FILE,"$html_dir/$FigFile/$DirFile") or die $!;
while (<FILE>){
...
}
close(FILE)
[download]

HTH

bye