for my $xlink (@xlinks) { push @xlinkpaths, $1 if $xlink =~ /xlink (.+?) /; } #### @xlinkpaths = map {/xlink (.+?) / ? $1 : ()} @xlinks;