my %map = (
F => "|",
S => "^",
T => "&",
R => "~",
E => "\\"
);
$msgu =~ s/\\([FSTRE])\\/$map{$1}/g;