use Text::ParseWords;
@list = shellwords($string);