Перезапись специальных переменных Perl регулярными выражениями

Когда-то я стал писать на perl из-за встроенных в язык регулярных выражений. Просто пишешь "abc" =~ / (?<x> a) /x; и вуаля: устанавливаются переменные $&, $1, %+, %-, @-, @+, $`, $'.

Однако эти же переменные перезаписываются при использовании следующей регулярки:

"abc" =~ /a/; print $&;  # -> a  "xyz" =~ /y/;  print $&;  # -> y

На самом деле, у специльных переменных perl-а обслуживающих регулярки область видимости ограничена своим блоком, как и у переменных объявленных через my.

"abc" =~ /a/; { "xyz" =~ /y/; print $&;  # -> y } print $&;  # -> a

Конечно использовать переменные от двух регулярок одновременно не выйдет — их придётся сохранить в локальных переменных. Например вот так:

"abc" =~ /a/; my $x = $&; { "xyz" =~ /y/; print "$x vs $&";  # -> a vs y } print "Конец строки: $'"   # -> Конец строки: bc

Если кто-то знает как сохранить все эти переменные в хеш кратко — напишите в комментариях: буду признателен. Я придумал сделать это только так:

"abc" =~ /(a)/; %x = map {$_ => $$_} qw/& 1 ' `/; use DDP; p %x;  # ->

{     &   "a",     `   ""     '   "bc",     1   "a" }

Так же не следует забывать о том, что переменная $_ является не локальной, а суперглобальной:

$_ = "abc"; { $_ = "xyz"; print;  # -> xyz } print;  # -> xyz

И тут придётся использовать local:

$_ = "abc"; { local $_ = "xyz"; print;  # -> xyz } print;  # -> abc

У меня по этой теме — всё. А вам — удачного программирования.