add xiao mapper perl script