my ($x, $y) = 'ab' =~ /(x)(y)/;
print $x // q(), $y // q(), "\n";