#!/usr/bin/perl

  use strict;

  my $var = '42a';

  my $tmp = $var;
  printf "'%%d' output          : %4.4d\n", $tmp;

  my $tmp = $var;
  printf "'%%d' output (with +0): %4.4d\n", $tmp + 0;

  my $tmp = $var;
  printf "'%%f' output          : %04.0f\n", $tmp;

__END__

'%d' output          : 0000
'%d' output (with +0): 0042
'%f' output          : 0042