This is more realistic
sub AUTOLOAD { my ($key) = our($AUTOLOAD) =~ /([^:]*)$/ or die; goto &{"parseHTML::$key"}; }
But the fix is simple
sub AUTOLOAD { my ($key) = do { our($AUTOLOAD) =~ /([^:]*)$/ } or die; goto &{"parseHTML::$key"}; }
Next