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

##</code><code>##

split(/(.*)<(.*)=(.*)"(.*)>(.*)/g