#!/usr/bin/perl6
# your code goes here

Str.^find_method("split").wrap(
	sub split(|c) {
		my @x = callwith(|c); # call Str::split with all arguments
		my @r = [];
		my ($i, $j) = (0, 0);
		my regex letter-number { <[a..z0..9]> }
		
		for @x -> $x {
			if $x.lc ~~ /<letter-number>/ && $i > 0 && @r[$i-1].lc ~~ /<letter-number>/ {
				@r[$i-1] ~= $x;
			} else {
				@r[$i++] = $x;
			}
		}
		@r;
	});

my $ms = "为了让大家在 V2EX 上的时间更有效率";

say $ms;

say $ms.split("").join("===");