{
                revision:1,
                roundLotSize:1,
                instrRegistry:"ABCDEFG0XXX",
                tradedCurrency:"EUR",
                priceType:"PER_UNIT",
                activationTime:0123456000000,
                inactivationTime:01234500000,
                publicationTime:123456000000,
                unpublicationTime:12345600000,
                xml:"<?xml version=\"1.0\" encoding=\"UTF-8\"?><Instrument xmlns=\"http://www.ngm.se/ns/InstrumentSchema/1.9\" xmlns:xsi=\"http://www.w3.org/2001/XMLSchema\"><Identification><OrderbookID>@ORDERBOOK_ID@</OrderbookID><Symbol>XXXX XXXXX</Symbol><ISIN>CH0000012345</ISIN><Name>Gearing Certificate Select Dividend Basket, 2008-2013</Name></Identification><LastUpdated>2012-07-02T17:48:42</LastUpdated><CFI>RWXXXX</CFI><TradingCurrency>EUR</TradingCurrency><PriceType>UNIT</PriceType><LotSize>1</LotSize><FirstTradedDate>2008-05-16</FirstTradedDate><Issuer><Name>ABC DE</Name><Symbol>XXX</Symbol><BIC>ABCDEFG0XXX</BIC><Country>CH</Country></Issuer><CSD><Name>Dummy Country xx</Name><BIC>ABCDEFG0XXX</BIC></CSD><IssuedQuantity>93</IssuedQuantity><Warrant EUSIPAClassification=\"2100\"><Underlyings><Underlying><Identification><Name>Dow Jones STOXX Select Dividend 30 Index</Name></Identification><Weight>0.25</Weight><Strike>2470.28</Strike></Underlying><Underlying><Identification><Name>Dow Jones U.S Select Dividend Price Index</Name></Identification><Weight>0.25</Weight><Strike>429.62</Strike></Underlying><Underlying><Identification><Name>Dow Jones Asia/Pacific Select Dividend 30 Index</Name></Identification><Weight>0.25</Weight><Strike>282.23</Strike></Underlying><Underlying><Identification><Name>Dummy Name Country Select Dividend Index</Name></Identification><Weight>0.25</Weight><Strike>1000</Strike></Underlying></Underlyings><PutCallIndicator>C</PutCallIndicator><CalculationPeriod><MaturityDay>2013-01-01</MaturityDay></CalculationPeriod><LastTradedDay>2013-01-01</LastTradedDay><ReimbursementDay>2013-01-01</ReimbursementDay><Arranger><Name>Some broker</Name></Arranger></Warrant></Instrument>",
                marketId:"XXXX",
                marketSegmentId:"ABCD",
                attribs:{SURVEILLANCE_DATA_CHANNEL_ID:"SD#1",MARKET_SERVER_ID:"MS#1",MARKET_DATA_CHANNEL_ID:"MD#5"},
                tickRules:"[100:100:inf]",
                altIds:{ISIN:"CH000001234", EXCHANGE_SYMBOL:"XXXX XXXXX", SECONDARY_MARKETPLACE_ASSIGNED_IDENTIFIER:"123456"}
        },
        {
...
        },


##</code><code>##

### we found this : </Name><Symbol>XXX</Symbol> 
        {
                revision:1,
                roundLotSize:1,
                instrRegistry:"ABCDEFG0XXX",
                tradedCurrency:"EUR",
                priceType:"PER_UNIT",
                activationTime:123456000000,
                inactivationTime:12345600000,
                publicationTime:123456000000,
                unpublicationTime:13624800000,
                xml:"<?xml version=\"1.0\" encoding=\"UTF-8\"?><Instrument xmlns=\"http://www.ngm.se/ns/InstrumentSchema/1.9\" xmlns:xsi=\"http://www.w3.org/2001/XMLSchema\"><Identification><OrderbookID>@ORDERBOOK_ID@</OrderbookID><Symbol>XXXX XXXXX</Symbol><ISIN>CH0000012345</ISIN><Name>Gearing Certificate Select Dividend Basket, 2008-2013</Name></Identification><LastUpdated>2012-07-00T00:00:00</LastUpdated><CFI>RWXXXX</CFI><TradingCurrency>XXX</TradingCurrency><PriceType>UNIT</PriceType><LotSize>1</LotSize><FirstTradedDate>2008-05-16</FirstTradedDate><Issuer><Name>ABC DE</Name><Symbol>XXX</Symbol><BIC>ABCDEFG0XXX</BIC><Country>CH</Country></Issuer><CSD><Name>Dummy Country Oy</Name><BIC>ABCDEFG0XXX</BIC></CSD><IssuedQuantity>93</IssuedQuantity><Warrant EUSIPAClassification=\"2100\"><Underlyings><Underlying><Identification><Name>Dummy STOXX Select Dividend 30 Index</Name></Identification><Weight>0.25</Weight><Strike>2470.28</Strike></Underlying><Underlying><Identification><Name>Dummy U.S Select Dividend Price Index</Name></Identification><Weight>0.25</Weight><Strike>100</Strike></Underlying><Underlying><Identification><Name>Dummy Country/Pacific Select Dividend 30 Index</Name></Identification><Weight>0.25</Weight><Strike>100.00</Strike></Underlying><Underlying><Identification><Name>Dummy Country Select Dividend Index</Name></Identification><Weight>0.25</Weight><Strike>100.00</Strike></Underlying></Underlyings><PutCallIndicator>C</PutCallIndicator><CalculationPeriod><MaturityDay>2013-01-01</MaturityDay></CalculationPeriod><LastTradedDay>2013-01-01</LastTradedDay><ReimbursementDay>2013-01-01</ReimbursementDay><Arranger><Name>Some broker</Name></Arranger></Warrant></Instrument>",
                marketId:"XXX",
                marketSegmentId:"ABCDE",
                attribs:{SURVEILLANCE_DATA_CHANNEL_ID:"SD#1",MARKET_SERVER_ID:"MS#1",MARKET_DATA_CHANNEL_ID:"MD#5"},
                tickRules:"[100:100:inf]",
                altIds:{ISIN:"CH000001234", EXCHANGE_SYMBOL:"XXXX XXXXX", SECONDARY_MARKETPLACE_ASSIGNED_IDENTIFIER:"123456"}
        },

##</code><code>##


#!/usr/bin/perl
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?";

                my ($SYMBOL);
                while (<$file>) {
                        $SYMBOL = s%.*</Name><Symbol>%%s;s%</Symbol>.*%%s; ## this is'nt obviously working ...### but this is what I want to achieve
                        print "NEWCOLUMN:\"$SYMBOL\"\n";
                        }
                }

} else {
        print "You need to specify an input file \n";
        print "\n";
        print "They are usually located here : \n";
        print "/PATH/* \n";
        print "\n";
        print "Usage : ".basename($0)." difffile.txt \n";
        print "\n";
        exit;
}