Stupid perl script to *get* TCMP tag value