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