%trans = qw/ F | S ^ T & R ~ E \\ /; $string =~ s/\\([FSTRE])\\/$trans{$1}/g; [download]
In reply to Re: Pattern Matching, left-to-right by ysth in thread Pattern Matching, left-to-right by TrekNoid