my ($name) = m/sequence (.*?) consists/i;