String Perl

#!usr/bin/perl
use warnings;
use strict;
my $float = 1427.0;
printf( "%#g\n", $float );