my $eq_qq = qr/
	\s+
	=
	\s+
	"([^"]*?)"
	\s*
/x; #!"

my $long_regex = qr/^\s+
	<gene_seq\s+
	id               $eq_qq
	status           $eq_qq
	CDS_number       $eq_qq
	number_of_CDSs   $eq_qq
	sequence_source  $eq_qq
	startpos         $eq_qq
	endpos           $eq_qq
	startopen        $eq_qq
	endopen          $eq_qq
	complement       $eq_qq
	>
/x;	#!"

if ($line =~ $long_regex) {
	print "$1\n$2\n$3\n$4\n$5\n$6\n$7\n$8\n$9\n$10";
}