my $input= "2.26";
  my ($whole, $frac)= split /\./, $input;
  $frac //= '';
  length $frac < 2 or die "would lose precision on .$frac";
  $frac .= '0'x(2 - length($frac));
  my $cents= "$whole$frac";