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