Select Code to Download

sub join_list {
   return "none" if !@_;  # ???
...
   return $last if !@_;
   return join( ", ", @_ ) . " and " . $last;
}

perl -e "my $test = join ', ', ('A', 'B', 'C');$test =~ s/,([^,]+?)$/ 
+and$1/; print $test;"