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