I had a similar "problem" with Perl split at about the same time last year. My solution, which doesn't require two references to the target ($keys) as some other solutions do (but does need two references to the result):

@result = split /\./, $keys, -1 or push @result, "";
[download]