Select Code to Download

my $key = "C:\\abc\\dfg";
my @example = ("C:\\abc\\dfg\\axy", "C:\\abc\\dfg\\#\@\$#\@\$\@\\hwllo
+");
...
    my $rel = abs2rel($_, $key);
    printf "in: %s\nout: %s\n\n", $_, $rel;
}

in: C:\abc\dfg\axy
out: axy
...
in: C:\abc\dfg\#@$#@$@\hwllo
out: #@$#@$@\hwllo

# modified source
use File::Spec::Functions qw(abs2rel splitdir);
...
    my($topdir) = splitdir($rel);
    printf "in: %s\nout: %s\ntop directory: %s\n\n", $_, $rel, $topdir
+;
}

in: C:\abc\dfg\axy
out: axy
...
out: #@$#@$@\hwllo
top directory: #@$#@$@