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

##</code><code>##

Sent notifications to 1402, 1304, 501