while (<DATA>) {
    chomp;
    if ( length() == 9 and not /[^0-8]/ ) {
        my %c = map { $_ => undef } split //;
        if ( keys %c == 9 ) {
            print "$_\n";
            next;
        }
    }
    warn "rejected input: $_\n";
}