#!/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";
}