my @species = split m{//}, $list;