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

##</code><code>##

When does a BEGIN block execute?