18:06 >perl -MData::Dump -wE "my $s = 'Hello1234world!5678How9012are3456you?'; my @w = $s =~ /([0-9]{4})/g; dd \@w;"
[1234, 5678, 9012, 3456]

18:18 >