use strict; 
use warnings;
my( $xlink,@xlinkpaths );
my @xlinks = (`cmd to get xlinks`) ;
my $op="/";
foreach $xlink (@xlinks) {
      $xlink =~ m{incl -s DS_Dalmore_Int /. /|\\.\\(.+)};
     push @xlinkpaths, $1 . $op;
}


##</code><code>##

incl -s streamname /./abc/def
   xlink /./abc/def from streamname 
incl -s streamname /./xyz/qwen/defs/asd
   xlink /./xyzz/qwen/defs/asd from streamname 

##</code><code>##

incl -s streamname \.\abc/def
   xlink /./abc/def from streamname 
incl -s streamname \.\xyz/qwen/defs/asd
   xlink /./xyzz/qwen/defs/asd from streamname 

##</code><code>##

@xlinkpaths = (
 "abc/def/",
 "xyzz/qwen/defs/asd/",
);

##</code><code>##

@xlinkpaths = (
 "abc/def\",
 "xyzz/qwen/defs/asd\",
);