my $number = 2017;
my $factor = 2;
my $result;

while (1){
    $result = $number * $factor;
    last if $result =~ /^[01]+$/;
    $factor++;
}

print $result;