[BlueNosE]

פתרתי את זה, כמו שחשבתי הבעיה הייתה בהגדרת הSUBSTR, כי אני תמיד שוכח שהוא מקבל נקודה x וכמות תווים (ולא נקודה x ונקודה y).
פתרתי את זה ככה:

substr ($Code, $pos, $val - $pos)

תודה על הניסיון, רותם.
אפשר לנעול.