use strict;

my @find    = ('description', 'Description', 'DESCRIPTION');
my $replace = 'Summary';
foreach my $string (@find) {
   $string = quotemeta $string;
   $string =~ s/description/$replace/ig;
   $string =~ s/=/:/g;
}

##</code><code>##

s/@array/replacement/