substr($_, pos() - 3, 3) =~ tr/FSTRE\\/|^&~\\/d
  while m/\G.*?\\[FSTRE]\\/gs;

##</code><code>##

substr($_, pos() - 3, 3) =~ tr/FSTRE\\/|^&~\\/d
  while m/\\[FSTRE]\\/g;