my ($value) = "abcde" =~ /(de)/;
print $value, "\n";