The error is, that, unlike the shell, you pass

@ARGV is (-s, "test, drei, vier")
[download]

for $input="-s \"test drei vier\"" (try Getopt::Long::Configure('debug');)

I can't come up with an easy way (like one regex) to solve this, you have to parse $input a bit more complicated than the split to mimik the bash-behavior

regards,
tomte

---