use Text::ParseWords;
@list = &quotewords ('\s+', 0, $input);
foreach $item (@list) {
   <whatever>;
}