Mega Code Archive

 

Categories / Perl / String

 

Find the substring with $_ =~ Aa

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