my @NonEmpty = grep { length } split(/:/, $text);




-----------------------------------------------------------------------------
Copyright 1997-2024 Jeffrey Friedl