Select Code to Download

$string =~ s/description/summary/gi ;
$string =~ tr/=/:/ ;

%subs = (
  description => 'Summary',
...
foreach (keys %subs) {
  $string =~ s/\Q$_/$subs{$_}/gi;
}