my $string = "1000000000000100000000000000100";
my $count = 0;

$string =~ s/1/eval('$var' . ++$count . q(=length$'))/eg;

print "$var1\n", "$var2\n", "$var3\n";