my ($sub) = $AUTOLOAD =~ /([^:])$/;