Select Code to Download

    my @F = split /\s*=\s*/;
    
...
        \%x;
    } 1 .. $#F];

 my ($toss, @list) = split /\s*([A-Za-z]+)\s*\=\s*/;
 my @row;
...

 }
 push @rows, \@row;