Help for this page
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/ }