You might also be interested in looking at The Larry's .sig CueCat decoder:

#!/usr/bin/perl -n
printf "Serial: %s Type: %s Code: %s\n", map { tr/a-zA-Z0-9+-/ -_/; $_
+ = unpack
'u', chr(32 + length()*3/4) . $_; s/\0+$//; $_ ^= "C" x length; } /\.(
+[^.]+)/g;
[download]

and the Barcode::CueCat module on CPAN as well.