I\'ve got two gripes: 1) the $replace identifiers could all be combined into one and 2) the script doesn\'t work.