my $bar = <<HERE;
Foo Bar Baz
HERE
my @list = qw($bar);