$_ = 'Hi There! x';

my $entries = () = /\S+/g;

print $entries;