$str =~ s/age ([0-9]+) name ([a-z]+)/$&/ ;