if($result[0]=~/q{(?k:[0-9a-fA-F]{1,2})}/){
		print "$1";
}