great ! thanks a lot this is what I've got :

use strict;
use warnings;
use File::Basename;
use Text::ParseWords;

if ($#ARGV == 0) {

        open my $file, "<", $ARGV[0] or die "Couldn't open file '$ARGV
+[0]': $! \nDid you specify a valid file?";


                while (<$file>) {
                if ($_ =~ m%</Name><Symbol>([^<]+)%) {
                        my $SYMBOL;
                        $SYMBOL = $1;
                        print "NEWCOLUMN:\"$SYMBOL\"\n";
                        }
                }
}
[download]

Next part ... print all matches and insert them into each field