$file =~ s/([\\'])/\\$1/g;

##</code><code>##

    $file =~ tr/";//d;