Select Code to Download

my $string = "This is that is other is";
my %hash;
...
       = $string =~ m/(This).+(that).+(other).+/ ) {
    print "$_ = $hash{$_}\n" foreach keys %hash;
}

@{$x}{'a', 'b', 'c'} = ( list );