/((?:\d+\.)+)/g;
split /(?<=\.)/, $1;

##</code><code>##

my @res = /(?<=\.)\d+\./g;