Select Code to Download

push ($data[ $_ ] =~ m[r] ? @rindex : $data[ $_ ] =~ m[^e] ? @eindex :
+ @oindex), $_ for 0 .. $#data;