Select Code to Download

use strict;
use Benchmark qw(cmpthese);

...
    print "bad!" unless ($_{REx} eq $_{split} and
                         $_{split} eq $_{index});
}