split klv of length k

splitklv.awk

#!/bin/awk -f
# prints each klv based on beginning length on a new line
# 012TESTYYYNN014NEWSYYYNNYY
# 012TESTYYYNN
# 014NEWSYYYNNYY
{ 
  for(columIndex=0; columIndex <=length($0); columIndex++)
  {
    currLen = int(substr($1, columIndex, 3) )
    print substr($1,columIndex,currLen)
    columIndex +=currLen
  }
}