if ($&) { print; }

##</code><code>##

perl  -E '$x="a0b"; $x=~/0/; say $&; if ($&) { die "not reached!" } if ($x=~/0/) { say "matched zero" }'

##</code><code>##

0
matched zero