use strict;
use warnings;

sub foo {
    my $x = shift;
    print "$x ";
    sub foo1 { 
      print "$x "; # Warning
    } 
    foo1();
    '' =~ /(?{ print "$x\n" })/; # No warning
}
foo('Hello');   # Prints 'Hello Hello Hello'
foo('Goodbye'); # Prints 'Goodbye Hello Hello'

sub bar {
    local our $x = shift;
    print "$x ";
    sub bar1 { 
      print "$x ";
    } 
    bar1();
    '' =~ /(?{ print "$x\n" })/;
}

bar('Hello');   # Prints 'Hello Hello Hello'
bar('Goodbye'); # Prints 'Goodbye Goodbye Goodbye'
__END__