my $number = 2017 * 2;

while (1){
    last if $number !~ /[^01]/;
    $number += 2017;
}

print $result;