if ( $in =~ /[\d.]+/ ) {