($elemdelim,$segterm) = ( $contents =~ 
            /ISA(.)..\1.{10}\1..\1.{10}\1..\1.{15}\1..\1.{15}\1.{6}\1.{4}\1.\1.{5}\1.?.{9}\1.\1.\1.(.)/);