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

##</code><code>##

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

##</code><code>##

Test .Value