Orderbook ID: ID_
 Symbol:     xxxxx xxxxx
 ISIN:       SExxxxxxxxx

##</code><code>##

use strict;
use warnings;
use File::Basename;
use Text::ParseWords;
        open (FILE, $ARGV[0]);

sub getValue {
        $_ =~ s/\s//g;
        my ($name, $value) = split(/:/);
        chomp($value);
        return $value;
}

        while (<FILE>) {
        my (@ID,@ISIN,@SYMBOL);
        if ($_ =~ m/ID:/) { @ID = getValue($_); }
        if ($_ =~ m/ISIN:/) { @ISIN = getValue($_); }
        if ($_ =~ m/Symbol:/) { @SYMBOL = getValue($_); }

        my @FULLVAR = (@ID,@ISIN,@SYMBOL);
        my $num = 0;
        my $count = 0;
        foreach (@ID,@ISIN,@SYMBOL) { printf  "$_:"; }
}
} else {
        print "You need to specify an input file \n";
        print "Usage : ".basename($0)." difffile.txt \n";
        exit;
}

##</code><code>##

Orderbook ID: XXX
 Symbol:     DUMMY 00OXX
 ISIN:       SE000123456
 Market:     Plain Dummy SE
   ## inactivationTime: [2012-01-01T00:00:00] => [2012-01-10T00:00:00]
   ## XML/Warrant/ReimbursementDay: [2012-01-06] => [2012-01-10]
   ## XML/Warrant/LastTradedDay: [2012-01-06] => [2012-01-10]
   ## unpublicationTime: [2012-01-01T00:00:00] => [2012-01-10T00:00:00