pattern matching for floating numbers

[hbkid]

How do I find numbers in a line and multiply it by 1000, the numbers could be floating
eg:
create_clock -name "CLKBLK" -period 64.000 -waveform {0 32}

I want to change this to
create_clock -name "CLKBLK" -period 64000 -waveform {0 32000}

Is there in perl to do a pattern match for a number. I know how to do it to find a digit (\d+) but it's not the same for a possible floating point no.

 

[TonyGroves]

How about:
[tt]
s/(\d+\.?\d*)/${\($1*1000)}/g;
[/tt]

 

[icrf]

use Regexp::Common;
s/$RE{num}{real}/$& * 1000/ge;

________________________________________
Andrew

I work for a gift card company!

 

[mikevh]

Or

s/(\d+(\.\d*)?)/$1*1000/eg;