in reply to regular Expression

my ($X,$Y,$Z) = split /\./, $version;

[download]

In Section Seekers of Perl Wisdom