$t = gsub($s,      "l",   "X")
