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