Select Code to Download

use File::Spec::Functions qw(catfile splitdir);

...

my $path1 = catfile @pathnames;   # '/special/semantic/path/definition
+'
my $path2 = join '/', @pathnames; # '//special/semantic//path/definiti
+on'