Цитата - захват - вопрос

Может кто-нибудь объяснить, почему я могу использовать $ 1 два раза и получать разные результаты ?

perl -wle '"ok" =~ /(.*)/; sub { "huh?" =~ /(.*)/; print for @_ }->( "$1", $1 )'

(Найдено в: Как исключить вложенные совпадения в Perl? )