String Perl

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