#! /usr/bin/perl -w

use strict;
use Benchmark;

my $start = shift;

timethese shift,
{
 Add     => sub { my $num = $start; $num += 0 },
 Regex   => sub { my $num = $start; $num =~ s/^0+// },
 Sprintf => sub { my $num = $start; $num = sprintf '%d', $num },
};