>perl -wMstrict -le
"printf qq{'$_' } for split /-/, '-foo-bar-', -1;
"
'' 'foo' 'bar' ''