The scope of regex capture variables

In AUTOLOAD subroutines

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