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