Select Code to Download

#!/usr/bin/perl
use warnings;
...
    next unless $ones == $n =~ tr/1//;
    say $n;
}