my $line = 'one=1,two=2,three=3,four=4,five=5';

$line =~ /\w+\=(\d+)\,\w+\=(\d+)\,\w+\=(\d+)\,\w+\=(\d+)\,\w+\=(\d+)/i
+g;

print "\$1=$1, \$2=$2, \$3=$3, \$4=$4, \$5=$5\n";
[download]