Select Code to Download

#!/usr/bin/perl
use warnings;
...
my $opt = "$x, $y";
my @opts = split /,\s*/, $opt;
print sum(@opts);