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