$ perl -e '$s="foobaaarbaz"; print join " ", split /ba+r/, $s;'
foo baz