Select Code to Download

my $value = sprintf('%.'.abs($ad).'f',$f);

my $temp='%.'.abs($ad).'f';
$temp=~/^(.*)$/;
$temp=$1;
my $value = sprintf($temp,$f);