$ perl -wE 'my ($x, $y) = "AB" =~ /(.)(.)./; say "$x $y"'
Use of uninitialized value $x in concatenation (.) or string at -e line 1.
Use of uninitialized value $y in concatenation (.) or string at -e line 1.