perl -E 'say for "ab" =~ /(.)+/g'