my $string = '5424123412345678';
substr($string,0,-4)=~y//*/c;
print $string;