"foo" =~ m/(oo)/;
      {
        "bar" =~ /(ar)/;
      }
      print $1, "\n";

##</code><code>##

$search_string = "123abc";

sub foo {
    $again = shift;
    $search_string =~ /(\d+)(\w+)/;
    print "$1 $2\n";
    return unless $again;
    $search_string = "456def";
    foo(0);
    print "$1 $2\n";
}

foo(1);


##</code><code>##

123 abc
456 def
123 abc

##</code><code>##

123 abc
456 def
456 def

##</code><code>##

   "foo" =~ /(oo)/;
   print $1;

##</code><code>##

      "foo" =~ m/(oo)/;
      {
        "bar" =~ /(ar)/;
      }
      print $1, "\n";

##</code><code>##

$search_string = "123abc";

sub foo {
    $again = shift;
    $search_string =~ /(\d+)(\w+)/;
    print "$1 $2\n";
    return unless $again;
    $search_string = "456def";
    foo(0);
    print "$1 $2\n";
}

foo(1);