if( $test =~ /^\d{4}$/ ) {
	...
}

##</code><code>##

if( length($test) == 4 ) {
	...
}