my $regex = "\$file =~ s/\\\$$variable/$path/g;";
    eval "$regex";

##</code><code>##

    # Count comments and empty lines
    elsif(/(\%\%.*\%\%)/) {