use strict;
use warnings;
use 5.010;


my $str = '110011111111';
$str =~ s/1{1,}1/*/;
say $str;

--output:--
*0011111111