perl -pi -e 's/\<tid\>/20000802.001/' q/*
