Select Code to Download

#!/usr/bin/perl
use strict;
...
    print $_, " becomes: ";
    print sprintf("%d\n", $_);
}

000006 becomes: 6
00005.55 becomes: 5
0004.5650 becomes: 4