for ('aabbbbbc', 'abccc', 'aabcc', 'aaacccc', 'abc') { print length $1, length $2, length $3, "\n" if /(a+)(b+)(c+)/; }