@lineTokens = split(/(.*)<(.*)=(.*)"(.*)>(.*)/, $lines[$l]);