18:05 >perl -MData::Dump -wE "my $s = 'Hello1234world!5678How9012are3456you?'; my @w = split /[0-9]{4}/, $s; dd \@w;"
["Hello", "world!", "How", "are", "you?"]

18:06 >