my $digits_4 = qr{ (?<=\ ) \d{4} \b }xms;
my $digits_3 = qr{ (?<=\ ) \d{3} \b }xms;