my $num = qr/[-+]?\d+\.\d+/;