Select Code to Download

my $opts = $3;
$opts =~ s/\s*,\s*//g;

#!/usr/local/bin/perl -l -w

...
print qq(key="$key");
print qq(val="$value");
print join(",", map {qq("$_")} @opts);