perl -e 'my $x = "abcdefg" =~ /(cd)/; print "$x\n";'

##</code><code>##

perl -e 'my ($x) = "abcdefg" =~ /(cd)/; print "$x\n";'

##</code><code>##

my($this, $that) = $string =~ /abc(def).+?(pq)$/;