Help for this page
$file_path =~ s#^$path##;
eval "$file_path =~ tr/$path//";
($file_path) = split /$path/, $file_path, 1;