perl

In perl, how would one read a text file into an array such that each word (as separated by whitespace) would become a different element?

I pick Python
myarray = file('lol').split()

I could also pick PHP
preg_split('/\s+/', file_get_contents('lol'))

Everybody else failed sorry sirs