Help for this page

Select Code to Download

Select or download this

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