А правда ли, что...

Тред не читал. Но Я бы сделал так:

#!/usr/bin/perl

use 5.010;
use strict;
use warnings;

#
# $do = [{ input => action }, ...]
#

sub user_do_input {
	my $do = shift;
	my $in = ~~<>;
	chomp $in;

	if(grep { $_->{input} eq $in } @{$do}){
		for (@{$do}){
			&{$_->{action}}($in) if $in eq $_->{input};
		}
	} else {
		user_do_input($do);
	}
}

user_do_input([{ input => 1, action => sub { say "Called!" }}, { input => 3, action => sub { say "Called ". shift. "!" }}]);

А зачем делать grep? Тогда уж, для 5.10 я бы заюзал for (~~<>) { when (1) {...} default {...} }

С grep мы сразу получим список, с нужными нам action's, для введенного input, т.е. всего ОДНА проверка, избегая таким образом множества проверок в when().

достаем в нем исходный код через интроспекцию и дальше ваяем из него че хотим

Так и в перле можно, причём на этапе «компиляции».

В пайтоне это тоже будет на этапе компиляции исходника в байткод. Интерпретатор работает с байткодом, в котором вместо исходных функций будут находиться уже обертки над ними.

while str == <условие> print («Word»)
while str == <условие> print («Digit»)

ня?