ActivePerl...如果你熟悉regular expression,这样的活用perl做太简单了。。或者外包给俺做。