Select Code to Download

if ($data[$i] =~ m/^(?:81|82)$/ && $data[$i] eq $data[$i+1]) {

my %wanted = map { $_, 1 } qw(
    81
...

for my $i (0 .. ($#data - 1)) {
    if (exists $wanted{$data[$i]} && $data[$i] eq $data[$i+1]) {