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 >

##</code><code>##

open(my $CFILE, '<', 'config.txt') or die "Couldn't open file 'config.txt' for reading: $!";
$readline = <$CFILE>;
@words = $readline =~ /([0-9]{4})/g;

##</code><code>##

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 >