Select Code to Download

# You may also want additional substitutions
# to backwhack  sed metacharacters, e.g.
# $search =~ s/\./\\./g;
$search =~ s/([[:alpha:]])/"[".lc($1).uc($1)."]"/ge;
system "sed -e s/$search/$replace/g $write1 > $write2";