my $string = "abcd";
if ($string =~ m/(ab)(cd)/) {
    print "$1_$2\n";
}