sub is_valid_list {
    my $text = shift;