#!/usr/bin/perl

for(@a=glob"{\321,.,\321}"x2) {
	$x = $_;
	for (@a) {
		$h = ~$x;
		print '*' if $_ =~ m/$h/; #Why does this line match?
		print ' ' if  $_ !~ m/$h/; #Why does this line not?

		#The next line is just for match tracking.
		$matches{"$_ =~ $h"} = $_ =~ m/$h/ ? '*' : ' ';
	}
	print "\n";
}

foreach $key(sort keys %matches) {
        print "$key    $matches{$key}\n";
}

##</code><code>##

*********
* ** ** *
*********
***   ***
* *   * *
***   ***
*********
* ** ** *
*********
.. =~ ..    *
.. =~ .Ñ
.. =~ Ñ.
.. =~ ÑÑ
.Ñ =~ ..    *
.Ñ =~ .Ñ    *
.Ñ =~ Ñ.
.Ñ =~ ÑÑ
Ñ. =~ ..    *
Ñ. =~ .Ñ
Ñ. =~ Ñ.    *
Ñ. =~ ÑÑ
ÑÑ =~ ..    *
ÑÑ =~ .Ñ    *
ÑÑ =~ Ñ.    *
ÑÑ =~ ÑÑ    *


##</code><code>##

#!/usr/bin/perl

for(@a=glob"{\321,.,\321}"x1) {
	$x = $_;
	for (@a) {
		$h = ~$x;
		print '*' if $_ =~ m/$h/; #Why does this line match?
		print ' ' if  $_ !~ m/$h/; #Why does this line not?

		#The next line is just for match tracking.
		$matches{"$_ =~ $h"} = $_ =~ m/$h/ ? '*' : ' ';
	}
	print "\n";
}

foreach $key(sort keys %matches) {
        print "$key    $matches{$key}\n";
}

##</code><code>##

***
* *
***
. =~ .    *
. =~ Ñ
Ñ =~ .    *
Ñ =~ Ñ    *