match_X() ; print "$str\n" ; print $r ? print_r( $r, true ) : 'No Match' ; print "\n\n" ; } match( 'aabbcc' ) ; // Should match match( 'aaabbbccc' ) ; // Should match match( 'aabbbccc' ) ; // Should not match match( 'aaabbccc' ) ; // Should not match match( 'aaabbbcc' ) ; // Should not match match( 'aaabbbcccc' ) ; // Should not match