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

##</code><code>##

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

##</code><code>##

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