Select Code to Download

# In your code you are sorting on the length of the replacement string
+s
# instead of the search strings.  I'm guessing that's not what you wan
+t,
...
    print OUTFILE $line;
}    
print "Made $replacecount replacements.\n";