[MacPerl] successful pattern match variables

[Adam Russell]

Why is $1 empty after this code executes? By all accounts it should be
"Adam". What is up? Does this facility not exist in Macperl for some
reason?

$_="Adam walked away fast";
/Adam/;
print $1;