if ( $a =~ m/aa/ ) {