my $num	= qr!
		[+-]?
		(?: \d*? )?
		(?: (?<=\d)\.? | \.?(?=\d) )
		(?: \d*?)?
		(?: \d[Ee] (?: [+-]?\d+ ) )?
	!ox;