...
my $var = ....;
my $var = sprintf ... $var;
...