[aprssig] Packet disassembly help needed

[vk4tec]

Hi,

Does anyone have some perl code I can use to uncompress 

VK4YBN>APRS,VK4RAI-3*,VK4GME-3*,WIDE:
@210039z/\G;Xt{68>+GzBob VK4YBN, 2004 Summer Challenge {UIV23N}

@ (Compressed with timestamp)
210039z (HHMMSSz)
/ (sym table)
\G;X (YYYY)
t{68 (XXXX)
> (symbol)
+Gz (csT)
Bob VK4YBN, 2004 Summer Challenge {UIV23N} (comment)

I need to be able to return the ascii value of a number as well.

and do powers of 91 calculations

Cheers Andy VK4TEC