print "Division by zero not allowed, starting over..." and redo if ( $frac01 =~ /^[\s\S]?\/?0$/ ); #### my ( $f1, $f2, $frac01, $frac02, $command, $total ) = (0) x 6;