my $string = '5424123412345678';
s/(?!.{0,4}$)./*/g for$string;  # 30
print $string;