eval af et pattern

Hvorfor indeholder $1 ikke første submatch, når man udfører match\'et i en eval? Med andre ord: hvorfor virker nedenstående ikke?


$pattern = \"/(\\\\d+)/\";
$pattern .= \";\";
print \"pattern: $pattern\\n\";

$zip = \"5580 Nørre Aaby\";

$_ = $zip;
if (eval($pattern) == undef) {
    print STDERR \"Fucked up pattern!\\n\";
    print STDERR \"$@\\n\";
    print STDERR \"$!\\n\";
}
else {
    print \"zip: \'$1\'\\n\";
}