Select Code to Download

  $_='something,something else';
  @_ = shift split /,/;

use strict;
use warnings;
...

(my $first,undef)=split /,/,'foo,bar',2;
say $first;