$foo = $1 if /(foo)/; #### my $foo = 1 if /(foo)/;