$ perl -E'
my $re = qr/ \s ( \d{3,4} ) /x;
say ">$1<" if " 5678" =~ /$re/; 
'
>5678<