#!usr/bin/perl use warnings; use strict; my $float = 123.94536; printf "\t%.3f\n\t%.3e\n\t%.3g\n\n", $float, $float, $float;