{
  my $num = 0;
  $main::num = 5; # this instead of the regex
  print $num;     # prints 0
}
print $num;       # prints 5

# or under use strict
print $main::num; # prints 5 as well