临床数据的perl脚本