$content =~m/(CALCON((?!CALCON).)* )/xsmg