my $s = "foo";
$s =~ m/(oo)/g;
$s = "bar";
say $1;