I think it's either seven or eight nested hashes and arrays -- t'was for the project mentioned here, as well as here. I was loading the arbitrarily-deep XML file into memory once at startup, and therafter running over it, munging it appropriatly. For me, the huge data structure was really the most convenient layout -- tough, by the end, I was getting a funny feeling it might have been a tiny bit easier in parts (and more buzzword compliant) if I'd used some OO. Oh, well.
perl -pe '"I lo*`+$^X$\"$]!$/"=~m%(.*)%s;$_=$1;y^`+*^e v^#$&V"+@( NO CARRIER'