use Text::ParseWords; @list = "ewords ('\s+', 0, $input); foreach $item (@list) { <whatever>; } [download]
In reply to quotewords and qq{}/q{} by greatdane