package unix_dog::Util; use strict; use warnings FATAL => 'all'; use experimental 'signatures'; sub split_keys($input) { my @out = split /\R/, $input; @out = grep (defined && length, @out); return @out; } 1;