$hay = AACCCAGGATGCGCCATGCAGGACACAGGACGCCACGGAA
$nee1 = AGGA
$nee2 = CGCCAC

##</code><code>##

$hay =~ /($nee1)T[ATGC]($nee2)/