Hi,
You have missed to mention \. in regex. Please check the following code.

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

--lamp