Select Code to Download

$foo =~ /abc([\w]+)xyz/;
$bar = $1;

($bar) = /abc([\w]+)xyz/;

If the /g option is not used, m// in a list
context returns a list consisting of the
subexpressions matched by the parentheses
...
in the pattern, the return value is the list (1)
for success.  With or without parentheses, an
empty list is returned upon failure.