Would this help

my ($x,$y,$z) = $version =~/(\w+)\.(\w+)\.(\w+)/;
[download]

Note: untested, need an example of $version!