Select Code to Download

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