perl -E 'say for "cat:dog" =~ /(cat)*/g;say "=";say for "dog:cat" =~ /(cat)*/g'