Select Code to Download

        for (@array)
        {
                s/0;nodata/1;$secondary/gi if /$email/
        }

        for my $_ (@array)   # 'my $_' is a little bit of a fudge
        {
                $_ =~ s/0;nodata/1;$secondary/gi if $_ =~ /$email/
        }