#!/usr/bin/perl

# Checking of ETS version
my $version;
open (VERSION,'path');
while (<VERSION>){
$version=$_;
chomp ($version);
}
my ($X,$Y,$Z);
if ($version =~ /(\d\.\d\.\d)/)
{
$X = substr $version, 0, 1,;
$Y = substr $version, 3, 4,;
$Z = substr $version, 6, 7,;
}
elsif($version =~ /(\d\.\d\d\.\d)/)
{
$X = substr $version, 0, 1,;
$Y = substr $version, 3, 5,;
$Z = substr $version, 7, 8,;
}

elsif($version =~ /(\d\.\d\.\d\d)/)
{
$X = substr $version, 0, 1,;
$Y = substr $version, 3, 4,;
$Z = substr $version, 7, 9,;
}

elsif($version =~ /(\d\.\d\d\.\d\d)/)
{
$X = substr $version, 0, 1,;
$Y = substr $version, 3, 5,;
$Z = substr $version, 7, 9,;
}


print "X,Y,Z Values are $X,$Y,$Z";