#!/usr/bin/perl6print("123345556".comb(/(.) $0*/));print("\n");print("11223311".comb(/(.) $0*/));
Standard input is empty
1 2 33 4 555 6 11 22 33 11
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!