Select Code to Download

$line="Bart  Lisa Maggie Marge Homer blah blah";
@simpsons=split(/\s+/, $line);

@simpsons = {"Bart", "Lisa", "Maggie", "Marge", "Homer blah blah"}