if ($line=~/%%/){
     $line=~s/%%(.+?)%%/$1/meegs;
 }