Perl: Как я могу использовать заглавные буквы при совпадении регулярных выражений?

Я использую это регулярное выражение для поиска шаблонов в геноме.

$string =~ /(?i)a+t?|(?i)t+/g

Чтобы сделать вывод более легким для чтения, я хотел бы изменить его так, чтобы оно начиналось с заглавной буквы во всех совпадениях длиной от 4 до 7 символов. Также он не должен портить переменные $ + [0] или $ - [0] .

способ вывода состоит в том, чтобы получить подстроку из более крупного строкового файла на основе '$ + [0]' и '$ + [0]'. Я не хочу распечатывать совпадения регулярных выражений. Я печатаю огромные строки корректоров и хочу, чтобы совпадения выделялись.

если вам действительно нужно увидеть код, над которым я работаю, вы можете получить его здесь