C:>perl -e "my $foo='123.123';$foo =~/(\d++\.\d++)/oi; print $1;"
123.123
C:>