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