my $string= '62880147894644072';

substr( $string, 0, -4 ) =~ tr//*/c;

print $string, $/;