sub parseFloat {
   my $str = shift;
   $str =~ /([\d\.]+)/;
   return $1;
}