my $num = qr/\d+\.\d+/;