Select Code to Download

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

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