Select Code to Download

foreach (@result) {
        print "bad!" unless ($_->{REx} eq $_->{split} and
                $_->{split} eq $_->{index});
}