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