Select Code to Download

Select or download this
```
my $xlink,@xlinkpaths;
```

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

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

Select or download this

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

Select or download this

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

Select or download this

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

Select or download this
```
         push @xlinkpaths, $1 if $1;
```
Select or download this
```
unshift @exclpaths, @xlinkpaths;
```

Select or download this

use strict; 
use warnings;
...
    "btrtbrtb/gbrgbrg/rttty/",
 );
unshift @exclpaths, @xlinkpaths;