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