Perl: Parse string as shell

Question

I would like to dequote and split a string the same way Bash does (excluding ` and $). Given the string:

'"'"'\""'"'  foo\ bar\"   '\" '\ quux

I would like an array containing:

@a = (q("'""), 'foo bar"', '\"  quux');

Answer 1

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