Find the substring with '$_ =~ /Aa/'
#!/usr/bin/perl use strict; $_ = "A aA AaA aAa AA aa... '"; if ($_ =~ /Aa/) { print "found\n"; }