Select Code to Download

sub mysplit {
    
...
for my $s (@tests) {
    print join(', ', mysplit($s) ), "\n";
}

one, two, three
## is a hash and #@ is an arobace
#@##, ###@####, #####@