$ perl -le'$_ = q/\ca\ra\ka\tl/; print; print for split /(?=\\)/' \ca\ra\ka\tl \ca \ra \ka \tl