in reply to making regex case insensitive

just add /i. if ($array_A$ds =~ /Test/i)