Select Code to Download

my ($x,$y) = $foo =~ /(hello)(world)/
    or die "failed to match";
...
if ( $foo =~ /(?<x>hello)(?<y>world)/ ) {
    print $+{x}, $+{y};
}