for (@array) {
              s/PERL/Perl/g;
            }