Perl lo tiene ya implementado y no se puede programar explícitamente: