use re 'debug';
use strict;
my (@rere,$rere);
$_="hello world";
@rere = /(\w+)\s+(\w+)/;
$rere = "(".join(",",@rere).")";
print "\$1 = $1, \$2 = $2, \$rere = $rere\n";
$_="foo bar";
print "\$1 = $1, \$2 = $2, \$rere = $rere\n";
@rere = /(\w+)\s+(\w+)/;
$rere = "(".join(",",@rere).")";
print "\$1 = $1, \$2 = $2, \$rere = $rere\n";