getting $1, $2 etc. in evaled regexp

[allan juul]

hi

perl question

eh, is not possible to get the values in parens when you do a reg match on an 
evaled string ?

consider the snippt below, how do i get the values into $1, $2 etc ...

my $str  = /(.{11})(.{10})/i;
my $line  = "test string etc  etc test string";
if ($line =~ eval("/" . $str . "/")) {
  print "id = $1\n";
  print "pw = $2\n";
}


thanks
./allan