修改了perl的简单变量的格式