use re 'eval';
my $str = "111111111";
my $times = 5;
my $re = qr/1/;
my $cnt;
$str =~ s/$re(?(?{++$cnt > $times})\A)/2/g;
print "$str\n";