$s="***ab***c"; 
$s=~s{\*}{\*\n} for 1..2; 
print$s; 

##</code><code>##

my output was:
*

**ab***c

##</code><code>##

*
*
*ab***c