Simple perl script to replace strings that match regex. We used it to clean malicious injection from web page.