Select Code to Download

sub passes {
    my $test_number = shift() || die "no test number";
...
    }
    return 1;
}

use strict;

...
}

form_number('', (1..9));

@/=map{[/./g]}qw/.h_nJ Xapou cets krht ele_ r_ra/;
map{y/X_/\n /;print}map{pop@$_}@/for@/