perl -le '$_="foo;bar:quux-blorflydick";my $p = "[".shift()."]"; print "@{[split/$p/,$_]}"' ';:y-'
foo bar quux blorfl dick