my (@even, @odd);
push @{ $_ % 2 ? \@odd : \@even }, $_ for split /,/, $text;