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

##</code><code>##

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