substr($string,rand length $string,1,"*") foreach 1..12;   # 5****23***34**7*