my ($left, $right) = qw(abc def);
print "$left_$right\n";

##</code><code>##

print "$left\_$right\n";
print "${left}$right\n";

##</code><code>##

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