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;
}