print "Division by zero not allowed, starting over..." and redo
      if ( $frac01 =~ /^[\s\S]?\/?0$/ );