%trans = qw/ F | S ^ T & R ~ E \\ /;
$string =~ s/\\([FSTRE])\\/$trans{$1}/g;