$string =~ s/^\d{12}/'*' x 12/e;           # ************5678