Select Code to Download

# split a string and put the pieces into an array and 
# assign the reference to this array to $aref
my @temporary=split(/\D+/,"1,2xx4:17");
$aref=\@temporary # [1,2,4,17]