Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl

...

my @list = split ' ', s/(.)\K(?!\1)/ /gr;
use Data::Dump 'dd'; dd "given $_ got", \@list;
  2. or download this
    ("given ZBBBCZZ got", ["Z", "BBB", "C", "ZZ"])