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;
}