#!/usr/bin/perl -i.orig -w
use strict;
 
while(<>){
  s/<% \$flat->purge\('dynamix','outburst'\) %>/\$CONFIG{DYNAMIX_OUTBURST}/g;
  print;
}