$s = "***ab***c"; 
$s =~ s/\*([^\n])/\*\n\1/ for 1 .. 2; 
print $s;

##</code><code>##

*
*
*ab***c