# match a backslash followed by two characters,
#   then compute the replacement by looking into %words
$s =~ s{(\\..)}{ $words{$1} || $1 }ge;