#!/usr/bin/perl

while (<>) {
  s/\$\^\{\\text\{([^}]*)\}\}\$/\\textsuperscript{$1}/g;
  s/\$_\{\\text\{([^}]*)\}\}\$/\\textsuperscript{$1}/g;
  print;
}