$ perl -wle'print for split "b+", "abbc"' a c