Select Code to Download

use strict;
use warnings;
...
  my ($k, $v) = split /,/;
  print "Do something with key $k and value $v\n";
}

foreach (my ($k,$v) = $str =~ /([^,]+),([^,]+)/g) {