if ($string =~ s!^(\w{4})$!uc($1)!e) {
	
	# do something
	} else {
	
	# do some error
	# print "Location: $error_url"
}