#!/usr/bin/perl
use strict;
use warnings;
use Benchmark qw(cmpthese);

my $data  = -12345;
my $count = pop || 500000;

cmpthese($count, {
	negate   => sub { my $i = -$data }, 
	absolute => sub { my $i = abs($data) }, 
	regex    => sub { my ($i) = $data =~ s/-// }, 
});