Select Code to Download

#!/usr/bin/perl

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

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

#!/usr/bin/perl

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

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