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