if ("$file" =~ "$filename")

##</code><code>##

        open (FH, "$file") || die "cant open file $!";

##</code><code>##

        $filename = $dir."/".$filename;
        open (FH, "$filename") || die "cant open file <$filename> $!";