my $str = "Test*.Value";
print "$1 $2\n" if($str=~/(.*?)\*\.(.*)/);