sub do_something_else {
	my $foo = "quzbaz";
	$foo =~ /([aeiou]+)/
		and print ">$1\n";  # prints ">u"
}
my $bar = "foobar";
if ( $bar =~ /([aeiou]+)/ ) {
	do_something_else();
	print "$1\n";           # still prints "oo", not "u"
}