$ perl -wE 'my ($x, $y) = "AB" =~ /(.)(.)/; say "$x $y"'
A B