DB<94> use Text::ParseWords qw/shellwords/

  DB<96> x shellwords(q{this is 'an example' "with different quoting and \" escaping" including\ escaped\ whitespace})
0  'this'
1  'is'
2  'an example'
3  'with different quoting and " escaping'
4  'including escaped whitespace'
  DB<97>