I think also local may be used.

{
   local $1;
   $string =~ m/(something)/;
   $found = $1;
}
[download]