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