while (<TEMPLATE>) {
  s/<~([^~]*)~>/$1/eeg;
  print;
}