#win quotation
perl -e "print join '|',split /[{}\s]+/,$ARGV[0]" "{31 0} {26 0} {6 10} {17 0}"
|31|0|26|0|6|10|17|0