You're treating $root_dir as a regex pattern, but I doubt that's what it contains. Use quotemeta (directly or via \Q\E) to convert arbitrary text into a pattern that matches the text.

s!^\Q$root_dir\E[\\/])!! for @results;
[download]

(Simplified and sped up the pattern by removing needless captures and factoring the common prefix out of the alternation.)