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