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