Well, erm... why perl?

#!/bin/sh
sed -e 's/ /\\ /g' | xargs "$@"
[download]

does the same. But it isn't what you want.