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




-----------------------------------------------------------------------------
Copyright 1997-2025 Jeffrey Friedl