$string =~ s/(\\(?:[FSTRE]\\)+)/
  my $x = $1;
  $x =~ tr#FSTRE\\#|^&-\\#d;
  $x;
/ge;