in reply to replacing text in specific tags
You assign to %data and print $data.
-- TTTATCGGTCGTTATATAGATGTTTGCA