Select Code to Download

$ perl
my $data = "Hello World" =~ /(.*) (.*)/; 
print "$data\n";
^D
1

$ perl
my ($data) = "Hello World" =~ /(.*) (.*)/; 
print "$data\n";
^D
Hello