my ($unit4) = $text =~ /\b \d{4} \b/gx;