$file_path =~ s#^$path##;

##</code><code>##

eval "$file_path =~ tr/$path//";

##</code><code>##

($file_path) = split /$path/, $file_path, 1;