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