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