Perl es divertido

Se me ocurrió buscar si se podía usar utf8 en el nombre de las subs en perl. Resulta que sí.

use strict; use warnings;
use feature 'say';
use utf8;

sub ña() {
    say "Soy una eñe";
}
sub ᐁ() {
    say "Soy un triángulo";
}

ña;
ᐁ;

Resulta en:

Soy una eñe
Soy un triángulo

Es tarde, pero se pueden hacer miles de dibujitos con estos caracteres. Perl siempre tuvo eso de poder hacer pavadas como esas (perl golf, dark perl) así que no es nada nuevo.

Les dejo un gato, que mira lo que hice y se pregunta porqué hago esto.