$input = eval "$key(\$input)" or die $@;
can be replaced with the safer
$input = do { no strict 'refs'; &{$key}($input) };
A dispatch table would be even safer.