Select Code to Download

{
    my %+;
...
            $y ~~ / (?<y1> \w+)\s+(?<y2> \w+) /x and
            $+{x1} . $+{y2} eq $+{y1} . $+{x2};
}

$x = 'fo  ar!';
$y = '?foob obar  ar';

$VAR1 = {
          'y1' => 'foob',
...
          'y2' => 'obar',
          'x1' => 'fo'
        };