my $xlink,@xlinkpaths;

##</code><code>##

perl -Mstrict -ce 'my $xlink,@xlinkpaths'
Global symbol "@xlinkpaths" requires explicit package name at -e line 1.
-e had compilation errors.

perl -Mstrict -ce 'my($xlink,@xlinkpaths)'
-e syntax OK

##</code><code>##

    foreach $xlink (@xlinks) { 
         @xlinkpaths =  
    }

##</code><code>##

    foreach $xlink (@xlinks) { 
         push @xlinkpaths, $xlink =~ m{incl -s streamname /./(.+)}; 
    }

##</code><code>##

    foreach $xlink (@xlinks) {
         $xlink =~ m{incl -s streamname /./(.+)};
         push @xlinkpaths, $1;
    }

##</code><code>##

         push @xlinkpaths, $1 if $1;

##</code><code>##

unshift @exclpaths, @xlinkpaths;

##</code><code>##

use strict; 
use warnings;
my( $xlink,@xlinkpaths );
my $stream = streamname;
my @xlinks = (`cmd to get xlinks`) ;

foreach $xlink (@xlinks) {
    push @xlinkpaths, $xlink =~ m{incl -s streamname /./(.+)};
}

my @exclpaths = (
    "wefwfewf/fewfff/",
    "btrtbrtb/gbrgbrg/rttty/",
 );
unshift @exclpaths, @xlinkpaths;