Help for this page
@lineTokens = split(/(.*)<(.*)=(.*)"(.*)>(.*)/, $lines[$l]);
split(/(.*)<(.*)=(.*)"(.*)>(.*)/g