perl -e " print join(', ',split(/\\\\/,'\foo\foo1\foo2'))"
, foo, foo1, foo2