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