Select Code to Download

#!/usr/bin/env perl

...
    use Data::Dump;
    dd $debug_path;
}

Input  - plain text from OP  : /a/b/c/d
Output - "c" & "d" are red   : /a/b/c/d
Output - internals of string : "/a/b/\e[31mc\e[0m/\e[31md\e[0m"