Help for this page
#!/usr/bin/perl use strict; ... print $_, " becomes: "; print sprintf("%d\n", $_); }
000006 becomes: 6 00005.55 becomes: 5 0004.5650 becomes: 4