my $string = '5424123412345678';
substr($string,0,-4,'*' x (length($string) - 4));
print $string;