原文:perl 正则s///与tr///