if (my $code = $pack->can($string)) {
 &$code($pack, $string);
);