You should at least make it symmetric...

sub encode { $_ = shift; s/((\D)\2+)/length($1).$2/eg; $_ }
sub decode { $_ = shift; s/(\d+)(\D)/$2 x $1/eg; $_ }
[download]