$foo =~ /abc([\w]+)xyz/;
$bar = $1;
or in one line:
($bar) = /abc([\w]+)xyz/;
From perlop:
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, i.e., ($1, $2, $3...). (Note that here
$1 etc. are also set, and that this differs from
Perl 4's behavior.) When there are no parentheses
in the pattern, the return value is the list (1)
for success. With or without parentheses, an
empty list is returned upon failure.
-- Hofmator |