Hi, if i understood your question correctly, this will help you.

my $str="xy.z123abc xyz1.23.abc";
while ($str=~m/[\w\.]+/gsi)
{
    print $&, "\n";
}
[download]

Updated: This won't work, i misunderstood the question. Sorry...