my $number = 2017 * 2;

while (1){
	my @num_array = reverse split(//, $number); # reverse, weil ich wills nach Potenz sortiert
	
	for (my $idx = $#num_array; $idx >= 0; $idx--) { # alle Stellen durchgucken
		if ($num_array[$idx] > 1) { # eine > 1?
			$num_array[$idx + 1]++; # nächst "höhere" Stelle um eins höher
			
			for (my $idx_new = 0; $idx_new <= $idx; $idx_new++) { # der Rest drunter wird 0
				$num_array[$idx_new] = 0;
			}
			
			$number = join("", reverse @num_array);
			#while ($number % 2017 > 0) { # wieder Teilbar durch 2017 suchen
			#	$number ++;
			#}
        # edit: geht jetzt schneller
			if ($number % 2017 > 0) {
				$number += 2017 - ($number % 2017)
			}
			
			last;
		}
	}
	
	if ($number !~ /[^01]/) {
		say $number;
		exit;
	}
	
    $number += 2017;
}