my $foo = "bar";
$foo =~ /ar/;
print "Got $&!\n";
$foo =~ /az/;
print "Got $&!\n";


##</code><code>##

if ($foo =~ /ar/) {
    print "Got $&!\n";
}
$foo =~ /az/ and print "Got $&!\n";